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1 0001 0 MODULE STAINIVOL(ZTITLE ‘Disk volume initialization’ 
g 9008 9 IDENT = *V04-000" 
000 )= 
4 0004 1 BEGIN 
en ae 
; 0007 i i weeeeerereereereeneeetenereeeeeererereeerentereeeeeeeeeeeneeeeeeeneeeeeeeee 
'@ * 
9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
1] got) : ‘* ALL RIGHTS RESERVED. * 
. & 
ig $018 1 '* THIS ee. i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND copieD * 
14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 0015 1 !* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 Baie : te TRANSFERRED. * 
-* + 
20 B2g9 1 Ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$§ it) : ? CORPORATION. * 
ie * 
24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
26 BOSS 1 !® * 
e7 0027 1 !« * 
r2.} 3 : , Seeeenacororeseceneneerneceneteceneeeeroneneesoesennennseonesesesesesesenees 
9 0 ! 
$9 00 1 
31 0031 1 !+¢ 
32 0032 1 | FACILITY 
33 0033 1} Backup/Restore 
34 0034 1! 
35 0035 1 | ABSTRACT: 
36 0036 1! This module contains the routines to initialize a disk volum 
$ 44 : These routines are adapted from and must track the INIT utility. 
3 0039 1 | ENVIRONMENT: 
40 0040 1! VAX/VMS user mode. 
41 0041 1 !-- 
$¢ 94 a. 
‘> Bez ; AUTHOR: M. Jack, CREATION DATE: 12-Feb-1980 
45 045 1 | MODIFIED BY: 
46 0046 1! 
47 0047 1! v03-006 ACG0332 Andrew C. Seldetota, 29-Apr-1983 15:48 
rr Bes } Add full highwater mark support 
50 0050 1! v03-005 ACG0325 Andrew C. Goldstein 4-Apr-1983 16:04 
51 0051 1! Fix use of file header length symbol; add file 
26 0988 : name extension. 
54 054 1! v03-004 ACG0324 Andrew C. Goldstein, | 1-Apr-1983 17:51 
2? bee : Set storage map size in VCB 
3 0089 1: v03-003 ACGO0313 Andrew C. Goldstein, 12-Feb-1983 17:17 
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3 28 038 } Add routine subtitles 

: 60 960 ri V03-002 MLJ48676 Martin L. Jack, 6-Sep-1982 21:04 

; o) bes : Set the index file EFBLK’ at the highest used file header. 
: 6 063 1 | v03-001 LMP0022 L. Mark Pilant S-Apr-1982 17:10 
3 3 O88 : } Add support for multi-header tides files. 

: 66 0066 1! v02=003 MLJ0081 rtin L. Jack, 26-Feb-1982 15:55 

3 24 +444 : } Implement RETAINMIN' and RETAINMAX for new home block fields. 
> 69 069 1! vO2=002 MLJ0054 Martin L. Jack, 22-Nov-1981 22:46 

3 oy Baoy ' Integrate GET_VM ond PREE VM jacket routines. 

;° 7 0072 1: v02-001 AcG0211 Andrew C. Goldstein, 16-Jul-1981 10:47 
‘ee 0075 1! Add logic to initialize save set disks 

; (Of 0074 1 | 

: 75 0075 1 !ee 
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77 0076 REQUIRE ‘SRC$:COMMON'; 
re é LIBRARY ‘SYSS$LIBRARY:LIB'; 
80 
81 LINKAGE 
4 CALL: GLOBAL (P$=11); 
84 8 
85 8 MACRO 
58 L_DECL= EXTERNAL REGISTER P$ = 11: REF VECTOR 2; 
8 9 
9 9 FORWARD ROUTINE 
90 9 A ATE: L.P$ NOVALUE, ! Allocate blocks 
91 9 ALLOCATE HOME: L_P$ NOVALUE, ! Allocate on home block sequence 
9 9 INIT ALLOCATE: LPS NOVALUE, ! Allocate file structure 
S 9 WRITE BLOCK: L-P$ NOVALUE, ! Write block by LBN 
94 9 INIT_BITMAP: L-P$ NOVALUE, ! Initialize bitmap file 
95 9 INIT INDEX1 P$ NOVALUE, ! Initialize index file (ODS-1) 
96 0 INIT_INDEX -P$ NOVALUE, ! Initialize index file (0DS-2) 
0 INIT_MFD: LPS NOVALUE, ! Initialize MFD (ODS- 
9 0 WRITE _HOMEBLOCK:L_P$ NOVALUE, ! Write home block (0DS=2) 
0 INITIALIZE_VOLUME? 
: NOVALUE ; ! Driver for initialization 
0 


EXTERNAL ROUTINE 
FREE_VM: NOVALUE, Free virtual memory 


GET_0M Allocate virtual memory 
GET ZERO_VM, Allocate and clear virtual memory 
CHECKSUM Compute header checksum 


Compute block checksum 

Create window control block 

Get bad block data 

Make map pointer (ODS-1) 

Make map porneer (O0DS-2) 

Allocate by LBN 

Convert 64-bit time to ODS-1 format 


CHECKSUM2, 
CREATE_WINDOW, 
GET_BADBLOCKS, 
MAKE_POINTER1, 

MAKE- POINTER, 
STA_ALLOC_LBN, 
TO_ODS1_DATE: | NOVALUE; 


EXTERNAL LITERAL 
BACKUP$_ALLOCFAIL, 
BACKUP$~BLKZERO, 
BACKUP$~CLUSTER 
BACKUP$—LARGECNT, 
BACKUPS MAXBA 
BACKUP$ WRI TEERR; 
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GSDEF INE(); 


Define global area 
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ation table 


o 
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ITERAL 
ALLOC_MAX= 


CHANNEL = 
STRUCL 
E SIZE 


-VCB= 
DEVCHAR= 
VCB(0.P,S,E)= 


PSSIZE= 


: Define entries of the 


LITERAL 
BOOTBLOCK_IDX= 
HOMEBLOCKT ious 


MFD_IDR= 


BOOTBLOCK_CNT= 
BOOTBLOCK~LBN= 
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PSO 

EV_1= P$C1 

HOMEBLOCR_DELTA=P$ ¢ 

VOLUM = PS 

REAL_HOMEBLOCK= PS$[4 

CLUSTER= $(5 
it 
$ 


¢ 
ALLOC_TABLE_tNT( ei z 
ALLOC"TABLE-LBN(N) = VECTGRC-ALLOC_TABLE_LBN,NJ 2%; 
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SBTTL ‘Allocation table’ 


V3 


Size of allocation table 


Channel number 

True if ODS-1 

Home block delta factor 

Size rounded to cluster boundary 
LBN of actual secondary home block 
Cluster factor 

Pointer to VCB for the volume 
Pointer to device characteristics 
CB,0,P,S,E] 


set ©: & &© & & & 
ee 


Pp 
Pp 
P . 

BBLOCKE._V 


. . g 
DEVCHAR(O.P,S,E)= BBLOCKL.~DEVCHAR.O.P,S,€) %, 


! Allocation table. Consists of 2 parallel tables, for size and LBN of 
! allocated areas. Each contains an entry for each piece of the disk 
that is allocated to something. 


x) Sa 
)= VECTORC_ALLOC_TABLE_CNT.NJ %, 


8 + ALLOC_MAX + ALLOC_MAX; 
allocation table. 


boot block 
primary home block 
alternate home block 
alternate index file header 
ndex file bitmap and file headers 
grorage bitmap 


ALLOC™ “LBNCIOX Dx 
ALLOC"TABLE~CNT(CBITMAP Tox 
ALLOC"TABLE ~LBNCBI TMAP™ 1DX 
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BLE-LBN 
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CNT= 
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MFD 
MFD 
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! Round the starting LBN and count down and up, respectively, to cluster 
: boundaries. 


ALLOC_TABLE_LBNC.INDEX] = .ALLOC_TABLE_LBNC.INDEX] / .CLUSTER * .CLUSTER; 
ALLOC- TABLE-CNTC. INDEX) = (.ALLOC_TABLE_CNTC.INDEX] + .CLU 1) / 


"a STER = 
INITIAL_LBN”= .ALLOC_TABLE_LBNC.INDEX); 


-CLUSTER * .CLUSTER; 


! Iterate toward the end of the disk, checking the proposed location 
of the entry. 


WHILE TRUE DO 
BEGIN 


Lt pat try et ete PR PS SF 


Try to allocate the entry. If it succeeds, return. 


if STA_ALLOC_LBN(.ALLOC_ TABLE CNTC. INDEX], .ALLOC TABLE _LBNC. INDEX) 
RETURN; 


2 
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: see 1343 1 XSBITL "ALLOCATE = allocate space for table entry' 

: tz : te ; ROUTINE ALLOCATECINDEX): L_P$ NOVALUE= 

: 305 1346 1 !44 

: 246 1347 1! 

> 247 1348 1 ! FUNCTIONAL DESCRIPTION: ; 
: 248 1349 1! This routine allocates the given table entry in the first available 
> 249 1350 1! position after the given start. If none, it allocates in the first 
3 520 b> ee eB available position before the given start. If none, it signals an 
: 2 : ¢ : error. 

: 2g i 4 1 ! INPUT PARAMETERS: 

; 2¢ 13 2 ' INDEX - Index of table entry to allocate. 

> 256 1357 1°! IMPLICIT INPUTS: 

; oor 1358 1! Allocation table. 

> 258 1359 1! 

3 239 1360 1 ! OUTPUT PARAMETERS: 

: 260 1361 1! NONE 

; 261 13 ; 1! 

; 62 13 1 ! IMPLICIT OUTPUTS: 

> 263 1364 1! Allocation table. 

3; 264 1365 1! 

; 265 1366 1 ! ROUTINE VALUE: 

3 1367 1! NONE 

3 1368 1! 

: 1369 1°! SIDE EFFECTS: 

3 1370 1! NONE 

: bia B 

: 1372 1 !-- 

3 1373 (1 

3 1374 2 BEGIN 

: 1375 2 LOCAL vel 

; 1376 2 INITIAL_LBN; ! Initial cut at LBN 

; 1377 2 L_DECL; 

3 1378 2 

$ 1379 2 

3 1380 2 

: 13 1 2 

3 13 § é 

; 1384 2 

; 3 5 2 

; 13 $ ‘ 

3 1388 2 

; 1389 

3 1390 

3 i 1 

1398 

: 1394 

1396 

: 13 $ 

: 1398 

3 1399 
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Increment to the next cluster. 
ALLOC_TABLE_LBNC.INDEX] = .ALLOC_TABLE_LBNC.INDEX] + .CLUSTER; 


If we have fallen off the end of the volume, exit the loop. 
08 IF .ALLOC_TABLE_LBNC. INDEX] GEQU .VOLUME_SIZE 

EXITLOOP; 
END; 
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: Iterate toward the beginning of the disk, checking the proposed location 
! of the entry. 


1 
ALLOC_TABLE_LBNC.INDEX] = .INITIAL_LBN; 
WH Bo 


ILE” TRUE 
BEGIN 
} Try to allocate the entry. If it succeeds, return. 
IF STALALLOC_LONC.ALLOC_TABLE_CNTC. INDEX, -ALLOC_TABLE_LBNC. INDEX]) 
RETURN; 


NOMI 2 ot IO 


If we have fallen off the beginning of the volume, report failure. 
iF jALLOC_TABLE_LBNC. INDEX] EQL 0 
SIGNAL (BACKUP$_ALLOCFAIL, 1, VCBCVCB_DEVICE]); 


Decrement to the previous cluster. 
ALLOC_TABLE_LBNC. INDEX] = .ALLOC_TABLE_LBNC.INDEX] - .CLUSTER; 
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-TITLE STAINIVOL Disk volume initialization 
-IDENT \V04-000\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE : 
00000 FREELLIST: 
00008 INPUT WAIT: 
00010 REREAD_WAIT: 
00018 OUTPUT_WAIT: 

-BLKB 


omen ao Oo 
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-BLK 
00038 JPI_NODE x tt 
00040 JPI =CURPRIV: 
00048 SYI_VERSION: 


0004C BLKB 
00056 NE SHOUD LIST: 


00058 RwSV -encign 
00098 RWSV_AUTODIN: 
00008 RWSV_FILESET ID: 
000€0 RWSV_VOLUME ID: 2 
O00EC RWSV_VOL NUMBER: 
OOOEE RWSV SEG’ NUMBER: 
OOOFO RWSV_FILE NUMBERS 
OO0F4 RWSV_SAVE QUAL: 
O00F8 RWSV_SAVE FAB: 
OOOFC RWSV_CHAN: ; 
00100 RWSV_XOR “Bc: 
00104 RWSV_IN_SEQ: 
00108 RWSV_IN_ “3th 8: 
0010¢ nvsv_1N_ tok SEQ: 
00110 RWSV_IN_ KOR RFA: 
00116 RWSV “LookhienD 
00117 RWSV “1ORSTTE: 
00118 RWSV_IN -EROUP $1 
0011¢ RUSV_IN_ERRORS 
OO11E RWSV_IN -XORUSE : 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_ rt 
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0012¢ 
00130 
00134 
00138 
0013¢ 
00140 
00144 
00146 


00148 RWSV OUT. “GROUP. COUNT: 


00149 


0014C 
0018C 


001¢4 
001C6 
001¢8 
001¢9 
OO1CA 
001CB 
001CC 
00108 
OO1E4 
OO1EC 
0020C 
00200 
0020€ 
0020F 
00210 
00210 
00214 


RWSV_IN_ VBN re 
RWSV ALLOC: 
-BLKB 
RWSV _E0F: = 
RWSV OUT. “SEQ: 


LK 
RWSV Our. “VN: 


RWSV_OUT “BLOCK. COUNT: 


RWSV_OUT “ERROR 
RWSV_ SEQ. “ERROR 


RWSV_PADDING: 


COM_VALID TYPE 
COM, FLAGS: | 
COmM_ PADDING: 

COM_BUF F “COUNT: 
COM_I “se COUNT: 
COM_0_ seiCOUNT 
COM_I _STAUCNARE 
COmM_O_ STAUCNAME: 
COmM_O _BSRDATE: 


INPUT RTiPE: 
OUTPUT Fine 
FAST _STRUCLEV: 
INPUT BEG: : 
INPUT CHAN: 
INPUT “FLAGS! 


S: 
S: 


S: 


“= - |= |= = ww @ Ww “ON WD & 


-oe--—- _— 


—" 
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749 AX-11 Bliss- 
ALLOCATE = allocate space for table entry 9 5 ‘eB Bliss<32 V4 


ACKUP.SRCJSTAINIVOL .B32; 1 
-BLKB 
00216 INPUT PADDING: 
00218 INPUT_FAB: 
0021¢ INPUT_NAR: 
00220 INPUT_BCB: 
00224 INPUT QUAL: 
00228 INPUT_BAD: 
»BLK 
0022¢ INPUT_BLOCK: 
-BLKB 
00230 INPUT_MAXBLOCK: 
-BLKB 
00234 INPUT MEDIA 1D: 
00238 INPUT .NAHEDE SC: 
00240 INPUT_STATBLK: 
00248 INPUT_HDR BEG: 
00248 INPUT_CREDATE : 
00250 INPUT _REVDATE : 
00258 INPUT_EXPDATE: 
00260 INPUT _BAKDATE : 
00268 INPUT_F.ILEOWNER: 
0026C INPUT_FILECHAR: 
-BLKB 
00270 INPUT _RECATTR: 
00290 INPUT_HDR_END: 
00290 INPUT_END: 
00290 INPUT PROC List: 
00294 INPUT_PLACEMENT: 
-BLKB 
0029C INPUT_VBN List: 
002A4 INPUT PLACE LEN: 
002A6 INPUT_PADDING_2: 
-BLKB 
002A8 OUTPUT BEG: 
002A8 OUTPUT_CHAN: 
.BLKB 


rf ON N Oo fF Oo CO 


-- 


COC - OO Ol OO -_--— -_-_—__——- — -— a 
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v04- ALLOCATE = allocate space for table entry 12-208-1 382 te 0:68 YBACKUP’SRe STAINEvOL 6 2:1 


OO2AC OUTPUT_FLAGS: 

~BLK 
OO2AE OUTPUT PADDING: 
00280 OUTPUT_FAB: 

~BLK 
00284 OUTPUT NAM: 
00288 OUTPUT CB: 
0028¢ OUTPUT _QUAL : 
002c0 OUTPUT BAD: | 
002¢4 OUTPUT _BLOCK: 
002c8 OUTPUT .MAXBLOCK: 
oo2cc OUTPUT _DEVGEOM: 
00204 OUTPUT _ATTBUF : 
00364 OUTPUT END: 
00364 LIST_TOTFILES: 

-BLKB 
00368 LIST _TOTSIZE: 
0036C VERIFY_FAB: 

-BLKB 
00370 VERIFY_USE_ COUNT: 
00374 VERIFY QUAL : 
00378 COMPARE _BCB: 
0037C FAST_BUFFER: 
00380 FAST_BUFFER SIZE 
00384 FAST_RVN: 

-BLKB 
00385 FAST PADDING: 
00386 DIR_VERLIMIT: 

-BLKB 
00388 FAST _VOL_BEG: 
00388 FAST_IMAP_SIZE: 
0038C FAST_IMAP: 

-BLKB 
00390 FAST_HDR. OFFSET: 

“BLKB 
00394 FAST_BOOT LBN: 
00398 FAST_VOL_END: 
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> 
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04-000 
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ALLOCATE = allocate space for table entry 


ona 


H 2 
16-Sep-1984 01: 
18230071 98e 1: 


00398 
0039C 
003A0 
003A4 
003A8 
OO3AC 
OO3AE 
00380 
00382 
00383 
00384 
00386 
00388 
0038C 
0030 
003¢4 
0038 


003CC 
005cC 


00300 
00304 


00308 
0030 
003E8 
0039 
OO3EA 
003EB 
OO3EC 
0052C 


-BLKB 
Jou BUFFER: 
JOUR_DIR: 
.BLKB 
SOR FUELS: 
JOUR_EFBLK: 
-BL 
JOUR_INBLK: 
BLK 
JOUR_FFBYTE: 
JOUR_INBYTE: 


JOUR. STRUCT LEV: 


JOUR_COUNT: 
JOUR_REVERSE : 
JOUR_EXS2: ‘ 

JOUR_ “papbinee 


$e 


LK 
CHKPT HIGH SP: 


K 
CHKPT_LOW. SP: 
CHKPT_STACK: 
CHKPT_VARS: 
~BLK 
CHKPT_STATUS: 


-BLKB 
DIR 5 7? eee 
DIR-CHA 


ar KB 
DIR_NAM: .BLKB 
DIR-DEV_DESC: 


LK 
DIR_SEL PIR: 
DIR_SEL_NTV: 
DIR_STRUCLEV: 
DIR_LEVELS: 
DIR_FLAGS: 
-BL 
DIR_STATUS: 
DIR_STRING: 
.BLKB 
DIR_STACK: 
.BLKB 


9 
5 


0:4 
4:0 
0 
4 
4 
& 
4 
4 
2 
2 
2 
1 
1 
2 
2 
4 
4 
4 
4 
é 
d 
4 
8 
8 
1 
1 
1 
1 


320 
612 


AX-11 Bliss-32 V 


BACKUP. SRC STAIN 


4.0-74 
IVOL .852;1 


é 
ume initialization 15- S$ep-1984 01: 
- allocate space for table entry 1 segleg 9H 90: 
DIR_SP: .BLKB 
Bb Fee 8 DIRS Sei. LATEST: 
B 
T 


“BLK 
OOr8 DIR_END: .BLK 
798 DIR- same 


0078C INPUT_MTL: 
007c0 output mits 
007C4 CURRENT_MTL: 
007¢8 CURRENT _VCB: 
007¢cc CURRENT UCB: 
00700 ACL_FIB _BESCR: 
-BLKB 


0708 ACL_FIB: sBLKB 
0818 ACLILENGTH 


0081C ACL “eure 
00820 CRYP_IN_ CONTEXT: 
00824 CRYP_OU_ _tONTERT: 
00828 CRYP_DA -EQNTENT: 
0082C CRYP_DATA_ENCIV: 
00834 CRYP_DATA CODE: 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA_IV: 
00848 CRYP_DATA CKSM: 
-6LKB 


Disk vol 
ALLOCATE 


| STAINI VOL 
vou-000 


»PSECT 


0303 9401 00 P.AAA: .WORD 


14 
23 P.AAB: 
8 
47 
aA 


BOOT_PROGRAM= 
BOOT oMESSAGES 


QO1E 65C0 
F FF76 


B0FD FF74 8BD 


és fe 93 99 98 30 


-BYTE 
ASCII 


-BYTE 


R 
eEXTRN 
-EXTRN 
-EXTRN 


749 AX-11 it, =32 V4.0-7 
105 EBACKUP-SRCSSTAINIVOL B92; 1 
4 
4 
0 
36 
4 
4 
4 
4 
4 
e6 
4 
4 
4 
& 
4 
8 
4 
8 
8 
4 
CODE ,NOWRT ,2 
160, 337%. 512, 4544, 26048, 30, - 7647. - 


ih it (ub: 29581 e: Onebs77, -13 $47. 


is not a system disk\ 


13, 10, 10, 0 


c. AAA 
PAAR 
FREE _V Ty 
GET ZR, ofr. WE CKSUM 
ghete eREAtE WINDOW 


STAINIVOL 
v04-000 


; Routine Size: 


Disk volume 


7E 


113 bytes, 


initialization 


PD Awww 
moo FF —wUWwWNoOe 


oc 


R Bowe 


18 AB 


000000006 


000000006 ? 


Routine Base: 


woeveeye 00 


C AB4 
4 


20 AB 


ODNODWON AMO AVM AMMO AAA MINI EI 


> 
DWT 3 9 FMON LMU NWON FVUNWUWOWOWWNTD OM 
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~EXTRN 


007C 00000 ALLOCATE: 


1$: 


AEOS & NVWOOM ONWIM SOs Or 


0 
™m 
ed 


DPIDIMVIIN & & & 
MAIVINOlw 


OO RNIGVIOM -GTM SSCS -GOmMmnVIoIVIIVIONOVWnVWnnvcvccs 


F999 —-NUVIOWDO 90" -OOWl TOMO nN MUNoOmom 


SOOCCOCOCOOOCOOCOOOOOOCOOOOCOOOOOOOOOOOSoO 
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CODE + 004E 
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AX-11 Bi ies =-32 v4.0-74 
BACKUP. SRCIS STAINIVOL.B 2;1 


MAKE POINTER, STA UPS oA LBN 
T0_0Bs1 =pars gannckur ACLOCFAIL 
BACKUPS_B 


CNT 
BACKUPS_ “HAXBAD™ BACKUPS_WRITEERR 


R2,R3,R4,R5_RO 
*ALLOC CBN, Ré 


oe ° 


DBA ARR MH WD BO HH DDD VWI WV OH 


sun 
Aa 
v 


#32. 24(P$), =(SP) 
spACKURS ALLOCFAIL 
» LIBSSIGNAL 
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voe-000 ALLOCATE _HOME = allocate home block 12286871388 94:90:98 YBACKUP. SRE STAINIVOL.682;1 . (6) 
; 0 1440 1 ZSBITL "ALLOCATE_HOME = allocate home block’ 
$ re 199) ! ROUTINE ALLOCATE _HOME (INDEX): L_PS NOVALUE= 
; rk 1208 1 !e4 
3; 344 1444 1! 
3; 345 1445 1 ! FUNCTIONAL DESCRIPTION: 
>; 346 1446 1! This routine allocates the indicated allocation table entry to 
§ rt 4 re? : the first available block on the home block search sequence. 
; 349 1268 1 ! INPUT PARAMETERS: 
; 29 1099 : INDEX - Table index of home block cluster. 
3 26 1486 1 ! IMPLICIT INPUTS: 
$ 5 1453 1! Allocation table. 
3; 336 1454 1! 
3 6599 1455 1 ! OUTPUT PARAMETERS: 
; 356 1456 1! NONE 
3 3557 435706 Cf 
>; 358 1458 1 ! IMPLICIT OUTPUTS: 
; 359 1459 1! Allocation table. 
: 360 1460 1! 
; 361 1461 1 =! ROUTINE VALUE: 
; 1006 1! NONE 
3; 2 1465 1! 
; 364 1464 1 ! SIDE EFFECTS: 
3; 365 1465 1! NONE 
; 366 1466 1! 
: 7 1467 1 !<- 
s Jee 1468 1 
: 369 1469 BEGIN 
; 370 1470 LOCAL 
; 371 1471 DELTA, ' home block search delta 
s 372 1076 § BLOCKFACT, ' device blocking factor 
s S73 147 LBN; ! home block candidate LBN 
; 374 1474 L_DECL; 
ae 1475 
; 376 1476 
3 377 1477 ! Compute the home block search delta. for structure level 1, this is simply 
: 378 1478 : 256, except that the first slot is on LBN 1 rather than 0. For level 2, 
3; 379 1479 ! compute the home block search delta from the volume geometry, according to 
: 380 1480 ! the following rules, where volume geometry is expressed in the order 
: 81 1481 i sectors, tracks, cylinders: a 
3 8 1488 ! nx ix: 1 
: 384 1484 ! Txnx i: 1 
; 385 1485 ! Tx ixn: 1 
; 386 1486 : 
s 387 1487 ! nxmx 1: n+1 
; 388 1488 ! nx ix m: n+l 
; 389 1489 $ xnxx m: n+ 
; 390 1490 4 
; 391 1491 : Sx txe: (t+1) e541 
: 3 1636 ‘ 
; 39 149 IF .STRUCLEV_1 
3 394 1494 TH 
; 395 1495 DELTA = 256 
3; 396 1496 ELSE 
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voe-000 ALLOCATE _HOME = allocate home block 12-3681 984 9:92:98 {BACKUP SRe STAINIVOL B92: 1 = (6) | 
; 397 1497 3 BEGIN 
; 398 1338 4 BLOCKFACT = (.DEVCHAR p7es8 . SECTORS) 
; 399 14 4 * .DEVCHARLDIBS$B_ TRACKS 
; 400 1500 4 * .DEVCHAR Biete nace peets 
; 401 1501 / .DEVCHARLDIBSL_MAXBLOCK); 
3 rt 13 § peera 21; 
; 404 1 Be Pent e 1eey CLIN RS] GTR 1 AND 
s ret 1 5 -DEVCHARLDIBSB_TRACKS) GTR 1 
: ret 4 1307 DELTA = .DELTA + .DEVCHARCDIBSB_TRACKS); 
3 £08 1305 .DEVCHARCDIBSB_SECTORS] GTR 1 AND 
; 610 1810 4 ahd ert) ry CYLINDERS] GTR 1 OR 
4 ref 131) 4 THEN -DEVCHAR DIB$B_TRACKS GTR 1) 
; ci8 1318 1F DELTA = (.DELTA * .DEVCHARCDIBSB_SECTORS] + .BLOCKFACT) / .BLOCKFACT; 
3 «4415 1515 DELTA EQL 0 OR 
; 416 1516 -DELTA GTRU .DEVCHARCDIBSL_MAXBLOCK] / 10 
: 417 1517 N 
; 4618 1518 DELTA = 1; 
; 4619 1519 END; 
3 420 1520 2 HOMEBLOCK_DELTA = .DELTA; 
: 053 1353 
i 4 g 15 : : Now find the first available cluster on the search sequence by eyareing 
3 424 1524 ! with LBN 1 and incrementing by the delta for each try. If none is available, 
: 425 13$3 ' report failure. 
; 426 15 $ ! 
3 427 152 LBN = 1; 
> 428 1528 2 WHILE TRUE DO 
: 429 1529 BEGIN 
; 430 1530 ALLOC_TABLE_LBNC. INDEX] = .LBN / .CLUSTER * .CLUSTER; 
; 631 1531 IF STA_ALLOC_LBN(.CLUSTER, .ALLOC_TABLE_LBNC.INDEXJ) THEN EXITLOOP; 
3 $36 1336 IF .STRUCLEV~1 THEN LBN = .LBN AND NOT T; 
; 43 15 LBN = .LBN ¢ .DELTA; 
i 434 1534 IF .LBN GEQU .VOLUME_SIZE 
: 635 1535 THEN 
:; 436 1338 SIGNAL (BACKUP$_ALLOCFAIL, 1, VCBLVCB_DEVICE)); 
: 637 1537 ND; 
; 438 1238 
3; 439 1539 
: 440 1540 ' Save the LBN of the actual block. 
3: 441 1541 : 
: 46 1266 REAL_HOMEBLOCK = .LBN; 
3; 644 1545 1 END; 
001C 00000 ALLOCATE_HOME: 
SWORD Save R2,R3,R4 : 1441 
07 04 AB §2 0002 Bec) 8=—_«& (PS), 18 > 1493 
3 0100 8F 3C¢ 00006 MOVZWL #256, DELTA ; 1495 
63 11 00008 BRB 6 3 


STAINIVOL Disk volume initialization 
voe-000 A 


ALLOCATE _HOME = allocate home block 


0 1 A 0 
1 08 AD OA 
2 09 AO 9A 
51 5 ge 
54 0A A C 
51 54 C4 
52 51 70 AO C7 
53 91 DO 
1 D4 
01 OA AO 861 
oF oe 
01 09 «Ad 54 
07 18 
54 09 AO 9A 
53 54 CO 
01 08 ad 91 
17 18 
06 51 €8 
01 09 ad 91 
OE 18 
51 08 AO 9A 
51 53 C4 
51 52 CO 
53 51 52 C7? 
53D 
OA 1 
50 70 =6A0 OA C 
50 53 D1 
03 18 
53 01 00 
08 AB 53 00 
52 01 00 
54 04 AC 00 
50 52 14 AB C7 
3C AB44 50 14 AB C5 
3C AB44 DD 
14 AB OD 
000000006 00 9 4 
26 E 
03 046 AB H 
25 91 A 
5 3 CO 
OC AB ¢ 4 
F 
7E 18 AB 0 C1 
1 OD 
000000006 8F DD 
000000006 00 3 4 
10 AB 8 B0 
4 
; Routine Size: 195 bytes, Routine Base: CODE + OOBF 
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SOooooooooooooooooooooooooooooo 


COOooooooooooooooe 
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2 
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4$: 


p=1986 11:54: 


oo 


AX-11 Bliss-32 
BACKUP.SRCJSTA INI 


R1, BLOCKFACT 


1 

1 
FACT, R1 

T, R1, DELTA 


#10, 112(RO), RO 
_ RO 


Ltrs) 


N, RO 
i. 60(P$)CR4) 


~ALLOC_LBN 


BVHEDBvOnwn- BOBO 


DELTA "BN 
. 12¢P$) 


2, 24(P$), =(SP) 


A vere cr 
LIBSSIGNA 


LBN, 16(P$) 


4.0-74 
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hy INIT_ALLOCATE = allocate space for volume struc 14-Sep-1984 11:54:05 BACKUP.SRCIJSTAINIVOL.B52;1 (7) 
13 «6445 1544 1 ZSBITL ‘INIT_ALLOCATE = allocate apace for volume structures‘ 

3 44 1545 1 ROUTINE INITTALLOCATE: L_P$ NOVALUE= 

3; «46 1 $ 1 
i; 648 1547 1 !e 

3; 4469 1268 gg 

; 450 13 1 ! FUNCTIONAL DESCRIPTION: 

; 4651 1550 1! This is the main allocation routine. It determines the size and 
s 5 1551 17! Location of each portion of the file structure. Each allocation is 
3 45 1226 7 done by choosing a candidate location for the section and checking 
3; 454 1553 1! for conflicts. If a conflict exists, a new location as near as 
3 £2? 1228 : possible to the desired one is chosen. 

; 45 1882 1 ! INPUT PARAMETERS: 

>; 458 1557 1! NONE 

3; 459 1558 1! 

; 460 1559 1 =! IMPLICIT INPUTS: 

: 461 1560 1! NONE 

: 46 1561 1! 

: 46 1206 1 ! OUTPUT PARAMETERS: 

3 464 15635 1! NONE 

3 465 1564 1! 

: 466 1565 1 ! IMPLICIT OUTPUTS: 

; 467 1566 1! NONE 

: 468 1567 1! 

; 469 1568 1 ! ROUTINE VALUE: 

; 470 1569 1! NONE 

3: 471 1570 1! 

3; 472 1571 1 ! SIDE EFFECTS: 

3; 473 1376 1! NONE 

: 4674 1573 1! 

3: 475 1574 1 !-=- 

; 476 1575 (1 

3 477 1576 2 BEGIN 

; 478 1577 § LOCAL 

; 479 1578 BAD REF BBLOCK; ! Pointer to bad block descriptor 
: 480 1579 L_DECL; 

3; 481 1580 

; «48 1581 

: on 1286 Allocate the bad blocks to the bad block file. 

3; 485 1584 BAD = OUTPUT_BAD[BAD_DESC); 

: $38 138? INCR J — 0 TO .OUTPUT_BADCBAD_NUMDESC)~-1 dO 

3 rt} 128% a NOT STA_ALLOC_LBN(.BADCBAD_COUNT], .BADCBAD_LBN]) 

; 490 1589 SIGNAL (BACKUPS$_ALLOCFAIL, 1, VCBLVCB_DEVICE]); 

: 491 1590 BAD = .BAD + BAD_S_DESC; 

; 49 1591 END; 

: 49 1236 

: 4946 159 

: rte 1298 : Allocate the boot block to the first available cluster (usually 0). 

3; 497 1298 BOOTBLOCK_CNT = .CLUSTER; 

; 698 159 ALLOCATE (BOOTBLOCK_IDX); 

; 699 1598 IF .BOOTBLOCK_LBN REQ 0 

; 500 1599 HEN 

3 $01 1600 SIGNAL (BACKUP$_BLKZERO, 1, VCBCVCB_DEVICE]); 
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_— 
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! Next allocate the thewetig and secondary home blocks. If the boot block is 
: on LBN 0 and the cluster factor is greater than 1, then the primary home 
block cluster is a dummy since the real home block is LBN 1. 


HOMEBLOCK1_CNT = .CLUSTER; 
IF_.STRUCLEV_1 


HEN 
LNT eee 


IF .BOOTBLOCK_LBN EQL 0 AND .CLUSTER GTR 1 
ALLOCATE (HOMEBLOCK1_ IDX) 


ALLOCATE HOME (HOMEBLOCK1_IDX); 
HOMEBLOCK2 CAT = .CLU : 
ALLOCATE HORE (HOMEBLOCK2_ IDX); 


: Now allocate the MFD, storage map, index file, and alternate index file 

: header, in that order. This results in optimal aoerre of the most 

: frequently referenced portions of the file structure. We do not allocate 
: the MFD at this time if this is an output disk being restored, since it 

! is allocated when it is encountered in the save set. 


VCBLVCB_SAVESET] 


1 

- 
THEN 
MFD_LBN = .OUTPUT_ATTBUFCVSR_INDEXLBN); 
MFD-CNT = 1; 


LOCATE (MFD_IDX); 
TMAP 


LBN =".OUTPUT_ATTBUFCVSR_INDEXLBN); 


MAP-CNT = 
OCATE (BITMAP_IDX); 

CB_BITMAP_CBN) = .BITMAP_LBN + 1; 
CVCB-BITMAP-SIZE) = .BITMAP_CNT - 1; 


IDXFILE_LBN = .OUTPUT_ATTBUFCVSR_INDEXLBN); 
IDXFILE-CNT = .OUTPUT—ATTBUFCVSR-MAXFILNUM) + (.OUTPUT_ATTBUF CVSR_MAXFILES]+4095) /4096; 
ALLOCATE (IDXFILE_IDX)} 


IF NOT .STRUCLEV_1 
THEN 


- CLUSTER; 
Ne ee + ,HOMEBLOCK _DELTA; 


BEGIN 
IDXHDR2_CNT 
IDXHDR2-LBN = . 
ALLOCATE (IDXHDR 
END; 


aor ae 


Co 


-—_—_—_—__—_—_-__ -___—_—_-_-_-—_—_ - S| < 
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IT_ALLOCATE = allocate space for volume struc 12286-1384 91:90:62 BACKUP. SRCISTAINIVOL.B 2:1 Has (3) 


, OOFC 00000 INIT_ALLOCATE: 
WORD 


57 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R7 ; 
56 FEB CF 9E 0000 MOVAB ALLOCATE, R6 : 
55 00000000' Ff 9E 90006 MOV guTPuT ATTBUF +84, RS : 
52 98 AS 8 Ci 9901 ADDL3 #8, OUTPUT BAD, 6 + 1584 
54 98 B5 DO OOO1A MOVL  @OUTPUT_BAD, R4 + 1585 
53 94 cE OO01§ MNEGL #1, J : 
11 0002 BRB 3$ : 
62 0D 90085 1$ PUSHL (BAD) + 1587 
04 A2 DD 00025 PUSHL  4(BAD) : 
000000006 00 02 FB 00028 CALLS #2, STA_ALLOC_LBN : 
10 50 £8 000¢F BLBS RO, 2$ : 
7E 18 AB 20 €1 00032 ADDL3 #32, 24(P$), =(SP) + 1589 
01 DD 00037 PUSHL #1 : 
000000006 8F DD 00039 PUSHL #BACKUP$_ALLOCFAIL : 
67 03 FB 0003F CALLS #3, LIBSSIGNAL 3 
3¢ 08 CO 00042 2s ADD #8, + 1590) 
DA é 54 F2 00045 3$ AOBLSS R4. J, 1$ + 1585. 
20 AB 14 AB dO 00049 MOVL 20(P$5, 32(PS$) + 1596 
7E D4 0004E CLRL = (SP) + 1597 
66 01 FB 00050 CALLS #1, ALLOCATE ; 
3c = AB.séDSS:-:« 00053 TSTL 60(P$) : 1598 
10 13 00056 BEQL : | 
7E 18 AB 20 Ci 00058 ADDL3 #32, 24(P$), -(SP) + 1600 
01 DD 0005D PUSHL : 
000000006 8F DD 0005F PUSHL #BACKUP$_BLKZERO : 
67 03 FB 00065 CALLS #3, LIBSSIGNAL ; 
24 AB 14 AB DO 00068 4s: MOVL  20(P$), 36(P$) : 1607 
04 04 AB €E9 0006D BLBC 4 6=-_«& (P$) , '5$ : 1608 
01 DD 00071 PUSHL : 1610 
1F 11 00073 BRB 8$ : 
3c «= AB.sé#DSS:-:«C00075 ‘S$: TSTL  60(P$) : 1613 
OD 12 00078 BNEG = 6$ ; 
01 14 AB D1 OOO7A CMPL 20(P$), #1 : 
07 15 0007E BLEG © 6$ : 
01 oD 00080 PUSHL #1 > 1615 
46 01 FB 00082 CALLS #1, ALLOCATE : 
06 11 0008 BRB 7$ ; 
1 DD 90087 6$ PUSHL #1 : 1617 
71 a6 1 FB 9 CALLS #1, ALLOCATE_HOME ; 
28 «AB 14 Ag DO 0008D 7S: MOVL 20(P$), 40(PS) + 1618 
02 DD 00092 PUSHL # + 1619 
71 A6 01 fe 0094 8$: CALLS #1 ALLOCATE _HOME 3 
50 18 AB DO 00098 MOVL  24(P$) + 1629 
08 07 ~=A0 03 €1 099¢ BBC #3, 7(RO), 9$ ; 
54 AB 65 00 000A1 MOVL oufPyt ATIBUF+84, 84(P$) > 163 
38 8 86AB 01 DO O0O0AS MOVL #1, S6TPS) s 163 
06 DD 000A9 98: PUSHL > 1636 
66 01 FB OO00AB CALLS #1, ALLOCATE : 
50 AB 65 DO OOOAE OVL 9 TPUT_ATTBUF +84, 80(P$) : 1637 
50 0c 14 AB C 00088 DIVL3 (P$)> 12(P$), RO > 1638 
§ OFFF CO 9E 0008 MOVAB 4095(R6), RO : 
| 


vied RE ie Ge PARIS IS A eA eR Roe HT EE RH cea 


—___-_-—_-- _—_— OO --— —_— —_-_+—__- 
| 
| 


dD 3 
| Shand yon Disk volume initialization 16-Sep- 
| V0G=" INIT_ALLOCATE = allocate space for volume struc 14-Sep- 
50 00001000 8F 6 008D 
34 0 00C4 
8 DD O00C9 
66 1 FB 000CB 
50 18 AB 00 000C 
of AQ 3 AB 4 C1 0000 
4 Ad 4 AB 1 a3 it 

4C ne 65 DO 00 43 
50 EO AS OOOOOFFF +t C1 QO0E 
50 00001000 F C6 OOOE 
30 8=6AB E4 B540 9E OOOF 
gs DD One 
66 1 4} FA 
11 AB £8 QOOFD 
2c Os AB 14 AB 00 00101 
48 AB 4C AB ag C1 00196 
8 DD 0010D 
66 1 FB 0010F 
04 00112 10$: 


; Routine Size: 275 bytes, Routine Base: CODE + 0182 
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(P$) 76(PS). 72(P$) 


‘i, ALLOCATE 


AX-11 Bliss-32 V4.0-74 
BACKUP. SRCJSTAINIVOL .852;1 


"foies). 3 1 . : 


P$) 
0 OUTPUT *Atfeur sss. RO 
SoUTPUT LATTBUF+56CROJ, 48(P$) 


pasasnereyitnnsatinntsniiemmnemnmpntens . praseenenenemnnamenseiasiannes: . . . 


-EXTRN SYS$Q10W 
0000 00000 WRITE_BLOCK: 
y Save nothing : 1658 


oW 
= o Se $0098 eURG -(§p) > 1699 
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STAINIVOL Disk volume initialization ibese -1984 01:00:49 AX-11 Bliss-32 V4.0-74 Pa 3 
“VO4= WRITE BLOCK = write block to volume 107380-198¢ 94:90:68 {BACKUP SRE STAINIVOL.B852;1 ot Bi 
i; 559 1657 1 ZSBTTL “WRITE_BLOCK = write block to volume’ 

: 9 1 8 | ROUTINE WRITE BLOCK(LBN, BUFFER): L_P$ NOVALUE= 
i; 2 1660 1 !¢ 

s 1661 1! 

; 564 1936 1 ! FUNCTIONAL DESCRIPTION: | 

; 565 1997 : This routine writes a disk block by logical block number. | 

: 38 1665 1 ! INPUT PARAMETERS: 

; 568 1998 1! - Logical block number. 

3 69 1667 1! BUFFER - Pointer to buffer. 

; $70 1668 1! 

: $71 1662 1 ! IMPLICIT INPUTS: 

3 278 1670 1! NONE 

ar 1671 1! 

; 574 1ore 1 !' OUTPUT PARAMETERS: 

: 575 16735 1! NONE 

3 278 1674 1! 

. oF 1675 1°! IMPLICIT OUTPUTS: 

; 578 1676 1! NONE 

; 579 1677 1! 

; 580 1678 1 ! ROUTINE VALUE: 

; 581 1679 1! NONE 

3 abe 1680 1! 

: 58 1681 1 ! SIDE EFFECTS: 

; 4584 oes 1! NONE 

; 26? 1683 1! 

; 586 1684 1 !<- 

; 587 1685 1 

: 588 1686 BEGIN 

; 589 1687 LOCA 

; 590 1688 STATUS, ' System service status 

; 591 1689 : VECTOR(4,WORDJ; ! 1/0 status block 

: 238 1690 L_DECL; 

3; 1691 

: 594 1o76 

; 595 P 169 STATUS = $0]0W( 

; 96 P 1694 FUNC=]0$_WRITELBLK, 

: 9 P 1695 CHAN=. CHANNEL, 

; 598 P 1696 10S8=10S8 

: 599 P 169 Pi= BUFFER, 

; 600 Pp 1698 P2=512, 

: 601 1g P5=.LBN); 

3 606 1 89 IF .STATUS THEN STATUS = .JOSB[0); 

; 60 17 If NOT .STATUS 

: 6046 1708 THEN 

: 605 170 SIGNAL (BACKUPS_WRITEERR + STSSK_SEVERE, 1, VCBCVCB_DEVICE), .STATUS); 

; 606 1704 1 END; 


F 3 
STAINIVOL Disk volume initialization 16-Sep-1984 01:00:49 Ax-11 Bliss-32 V4.0-74 p 4 
v04- WRITE_BLOCK - write block to volume 1 730071 38¢ 9:90:88 YBACKUP’SRe STAINIVOL-8 2:1 ae B 
aS : 
7E 0285 8F 3C ¢ MOVZWL rh -(SP) : 
08 ac DD 1 PUSHL BUFFER : 
7E 7C 00014 CLRQ =(SP) : 
20 ar OF 18 PUSHAB 1088 : 
DD 0001 PUSHL @# : 
Be soe : 
000000006 00 oc if O01F CALLS #12, SYS$Q10W ; | 
06 : 00 $ BLBC us, 1$ + 1700 
0 : ¢ 00 MOVZ2WL 10SB, STATUS F 
16 E8 0002C BLBS TATUS, 2$ : 1701, 
0 DD OO02F 1$ PUSHL STATUS + 1703 
7E 18 AB i ci 00031 ADDL #52, 24(P$), =(SP) : 
000000006 8F DD 00038 PUSHL #BACKUPS_WRITEERR+4 : 
000000006 00 04 FB 00056 CALLS #4, LIBSSIGNAL F 
04 00045 28: RET : 1704 


; Routine Size: 70 bytes, Routine Base: CODE + 0295 


STAINIVOL Disk volume initialization 18-se Sep-1984 AX-11 Bliss-32 V Page 25 
voe-000 INIT BITMAP = initiatise storage bitmap =30871 382 tF 92: $e BACKUP. SROJS STAINI rr if 2;1 . 5 
; 60 7 5 1 ZSBTTL “INIT BITMAP - initialize storage bitmap’ 

3 ¢ 1 1 ROUTINE INIT“BITMAP: L_P$ NOVALUE= 

: 610 17 1 

; 611 17 3 1 tee 

; oi¢ 1709 1! 

3; 6 1ri9 1! FUNCTIONAL DESCRIPTION: 

3 $18 il : : This routine initializes the contents of the volume storage bitmap. 
3 618 1718 1 ! INPUT PARAMETERS: 

3 «661 17144 1! NONE 

; 618 1718 1! 

; 619 at 1 ! IMPLICIT INPUTS: 

; 620 14) aes NONE 

; 621 1718 1! 

3; 6 ¢ 1719 1 =! OUTPUT PARAMETERS: 

; 6 1720 1! NONE 

; 624 1721 1! 

: 625 17 ; 1 ! IMPLICIT OUTPUTS: 

; 626 17 1! NONE 

: 627 1724 1! 

; 628 1725 1 ! ROUTINE VALUE: 

; 629 1726 1! NONE 

; 650 1727 1! 

3; 631 1728 1! SIDE EFFECTS: 

3 O36 1729 1! NONE 

; 63 1730 1! 

: 634 1731 1 !<< 

; 635 1736 1 

; 636 te BEGIN 

3 Os7 1734 LOCAL 

; 638 1735 BUFFER: BBLOCK(512); ' Block buffer 
; 639 1736 L_DECL; 

; 640 173 

3; 641 1738 

; 43 Ha 4 : Build the storage control block and write it out. 

: 644 1741 CHSFILLCO, S14. BUFFER); 

: 645 Ho IF .STRUCLEV_ 

: 646 174 THEN 

; 647 1744 BEGIN 

; 648 1745 

3; 649 1746 BUFFER: VECTOR; 

; 650 1747 

: $3) 1768 BLOCK_COUNT; ! number of blocks in storage map 
; 65 1750 BLOCK_COUNT = we 

3; 654 1751 IF .BCOCK COUNT OL TRU 1726 Ten’ "BLock COUNT = 0; 

; 655 1736 spe rans ar < ,8> = er N 

3 65 175 DECR J FROM “BLOCK COUNT~TO 1 60 BUFFERC. 4, 2 5 $096: 
; 65 1754 BUFFERC. BLOCK_COUNT+1) = ROT(. VOLUME SI2E. 

; 658 1755 END 

; 659 1738 ELSE 

: 660 175 GIN 

; 661 1738 BUF FERCSCBSW_STR USLE j= scese epevete #1; 

; 66 175 BUFFERCSCBSW_CLUSTER) = 

; 66 1760 BUFFERCSCBSL_VOLSIZE] = ‘beycuantores, MAXBLO cK 3 
3 664 1761 4 BUFFERCSCBSL_BLKSIZE] = (.DEVCHARLDIBSB_SECTOR 


: 
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Disk volume initializat 16-Sep-1 1:00:4 AxX-11 Blis 
INIT_BITMAP = init feltse's storage bitmap 192808- 1388 i 90:08 BACKUP. saeista TAIN NivOL. B82: :1 
1768 4 * ,DEVCHARCDIBSB_ TRACKS) 
1763 4 * -DEVCHAR DIBSW- cyl NDER Rs)) 
1764 / =DEV HARLDIBSL-MAXBLOCK 
1765 BUF FERCSCBSL_ SECTOR 1 = sDEVCHAR 018$B SECTORS Ie 
266 BUFFER ScBSL “TRACKS .DEVCHARCD1B$B8_ TRACKS): 
176 BUFFERES BSL CYLINDER) = ;DEVCHAR DIBSW_ CYLINDERS); 
1768 CHECKS (BUFFER, SBYTEOFES T(SCBSW_CHECKSUM)); 
1770 WRITE_BLOCK(.BITMAP_LBN, BUFFER); 
177 
1578 ! Now initialize the bitmap to binary zeros. This will also initialize any 
1774 i extra blocks that may be present due to cluster rounding. The correct 
1ot? contents of the bitmap will be written at the end of the restore operation. 
1338 CHSFILL(O, 512, BUFFER): 
1778 INCRU LBN FROM .BITMAP_LBN + .! TO .BITMAP_LBN + .BITMAP_CNT = 1 DO 
1779 WRITE _BLOCK(. LON, BUFFER 
1780 1 END: 
003C 00000 INIT_BITMAP: 
.WORD Save R2,R3,R4,R5 
5E FEOO CE 9€E 00002 HOVAB ~512(SP5, SP 
00 6F 00 2c 90007 movcS #0, (SP), #0, #512, BUFFER 
2c 04 AB €9 0000F BLBC 4(P$), 4$ 
51 34 AB 01 ¢3 00013 SUBL3. #1, 52(P$), BLOCK_COUNT 
0000007E 8F 51 01 00018 CMPL  BLOCK_COUNT, #126 
02 18 O001F BLEQU 1$ 
51 04 00021 CLRL _ BLOCK_COUNT 
03 Ag 51 90 000 ; 1$ MOVB BLOCK-COUNT, BUFFER+3 
5 01 Al 9E 000 MOVAB 1(R1)7 J 
06 11 00028 BRB 3$ 
6E40 1000 8F 3c 000 p 33 MOVZ2WL #4096, BUFFERCJ) 
7 50 F5 00033 3$ SOBGTR J, 2$- 
04 AE41 0c AB 10 9 000 ROTL #16, 12(P$), BUFFER+4CBLOCK_COUNT) 
49 11 00030 BRB 5$ 
6 0201 8F B80 0003F 4$ MOVW #513, BUFFER 
02 AE 14 AB BO 00044 MOV 0(P$), BUFFER+2 
50 1s A 9 049 MOVL 8(P$), RO 
04 AE 70 OA p 4p MOVL 12(ROS, BUFFER+4 
51 08 AO 9A 0005 MOVZBL BRO). R1 
32 09 AO 9A 00056 mOVZBL (RO). R2 
1 52 C4 O03A MULL2 R2, RI 
53 0A AO 3¢ 00050 MOVZWL 10(RO), R3 
3] 53 C4 9061 MULL2 R3, RI 
08 AE 1 70 Ad (C7 064 DIVL3 1128(RO), R1, BUFFER+8 
Oc AE 08 AO 9A QO06A MOVZBL (RO), BuF FER+12 
10 AE 09 AO 9A O06 MOVZBL 9(RO). BUFFER+16 
14 AE OA Ad 3¢ 00 4 MOVZWL VOcROS , BUF FER+20 
7 O1FE BF 3¢ 79 MOVZ2WL #510, =(SP) 
AE 9F O007E PUSHAB BUFFER 
000000006 00 02 FB 00081 CALLS #2, CHECKSUM2 


roe 
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_ STAINIVOL Disk volume initialization iL S$ep-1984 01:00:49 AX-11 Bliss-32 V4.0-742 Page 27 
v04-000 INIT_BITMAP = initialize storage bitmap 1e-8ep-1986 11: 00:68 YBACKUP’ SRCJSTAINIVOL.B32;1 . (35 
SE DD 00088 5$ PUSHL sp : 1770 

50 AB DD OOOBA PUSHL  80(P$) : 

FF28 CF 0 FB 000 CALL a, WRIT TE8 : 
| 0200 8F 00 bE 00 2c 0098 movcS #0, (SP), -° Ost2. BUFFER : 1777 
50 50 34 As g1 O9A ADDL3 52(P$), BQ(PS), RO : 1778 

3 oS é OA0 MOV =1(RO), R : 

50 Ag D AG MOVL . LBN : 

11 000A8 BRB $ : 
4004 8F BB OOOAA 6$ PUSHR M<R2,SP> : 1779 

FEO? CF FB OOOA CALLS #2, <ORITE _BLOCK : 

d6 98 7$ INCL : 

53 D B CMPL  LBN, R3 : 

FO 18 00088 BLEQU 6$ : 
04 OOOBA RET + 1780 


; Routine Size: 187 bytes, Routine Base: CODE + 02DB 
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STAINIVOL Disk volume initialization 1a-se -1984 01:00:49 AX-11 Bliss-32 V Pa 8 
| ¥00-000 Initial ODS-1 file header 1a-8ep-19 4 11: £00: 4:05 BACKUP. SRe STAINI TWOL. 5 2;1 oe 485 

>; 685 1781 1 XZSBITL ‘Initial ODS-1 file header’ 

; 68 17 ¢ 1 BIND 

; 68 17 1 INITIAL _HEADER_1 = UPLIT ( 

; 688 1784 1 ' HEADER area 

; 689 1785 1 BYTE (FHISC peeere / 2 ' ident area offset 

: 690 17 § 1 BYTE ((FHISC_LENG ar 1$C_LENG 1W)/2), ' 990 area offset 

; 691 17 1 WORD (FID et “INDEXES FiDse IND DEXF), ' file ID 

; 69 1788 #1 BYTE (1 ' structure version and level 

> 69 1789 1 WORD cf, i file owner UI 

3 694 1790 1 WORD (0), ! file protection 

; 695 1791 «#1 WORD (0), ' file characteristics 

3 038 1738 1 BYTE (0) ' record type 

; 69 1793 1 BYTE (0), ' record attributes 

; 698 1794 1 WORD (0), ! record size 

; 699 1795 1 LONG (0, 0), ' HIBLK and EFBLK 

: 700 179% 1 WORD (05, i EOF byte offset 

3; 701 1797 (1 BYTE (0, 0), ! bucket size & VFC Length 

; 70 1798 #1 WORD (05, ' maximum record length 

; 70 1799 #1 WORD (0), ! default extend size 

3; 704 1800 1 WORD (0, ‘0, 0. 0. 0. 6), !' unused record attributes 

3; 705 1801 1 

3; 706 1308 1 ' IDENT area 

; 707 1805 1 WORD (ZRADSO_11°INDEXF SYS", 1), : meee name, yee and version 

; 708 1804 1 WORD (1) ' revision num 

: 709 1805 1 BYTE (REP 34 OF (0)), i dates 

: 710 1806 1 

.. Pes 1807 1 ! MAP area 

: 712 1808 1 BYTE (0), ! file ae fag number 

: 713 1809 1 BYTE (0), ' extension R 

:; 7146 1810 1 WORD (0, 9). ' extension Mite 1D 

. ae 1811 1 BYTE (1, 3), — pointer count & LBN size 

: 716 1812 1 BYTE (05 ords in use 

s 717 18135 1 OYTE ((542=-2-FH1$C _LENGTH=F 11$C _LENGTH=FINSC PLENGTH)/2)) 

; 718 1814 1 ! map words available 
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Disk volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0-74 
INIT_LINDEX1 = initiatiee ODS-1 index file 14-Sep-19 4 94:90:68 BACKUP. SRC STAINIVOL 69251 
1815 1 ZSBTTL “INIT_INDEX1 = initialize ODS-1 index file’ 
' 1 : ROUTINE INITLINDEX1: L_P$ NOVALUE= 
1 18 1 !44 
1819 1! 
1820 1 ! FUNCTIONAL DESCRIPTION: 
1821 1! This routine initializes the contents of an ODS-1 index file. 
is § : : It writes the boot block, the home block, and the initial headers. 
1824 1 ! INPUT PARAMETERS: 
is 5 : : NONE 
18 $ 1 ! IMPLICIT INPUTS: 
1828 1! NONE 
1829 1! 
1830 1 ! OUTPUT PARAMETERS: 
1831 1! NONE 
1836 1! 
1835 1°! IMPLICIT OUTPUTS: 
1834 1! NONE 
1835 1! 
ts 1 ! ROUTINE VALUE: 
1837 1! NONE 
1838 1! 
1839 1 ! SIDE EFFECTS: 
1840 1! NONE 
1841 1! 
1866 1 !-- 
1843 1 
1844 BEGIN 
1845 LOCAL 
1366 BUFFER: BBLOCK(512], ! Block buffer 
184 ALT_BUFFER: BBLOCK(512], ' Block buffer 
1848 LBN, ' Current LBN 
1849 BAD: REF BBLOCK, ! Pointer to bad block entry 
1850 EXTENSION FID, ! File number for extension headers 
1851 IDXFILE_ERT_CNT, ! Remaining count for the index file 
1936 IDXFILE_EXT_LBN, ! Starting block for the remaining count 
185 MAP_FULC_STATUS, ! Map area full indicator 
1854 PED; ! Remaining count when header full 
1855 LITERAL 
1336 sim IDXFILE_EXT_FID = 6; ! first index file extension header file number 
1888 IDENT_AREA = BUFFER + FHISC_LENGTH : ait tian 
185 AREA = BUFFER + FHISC-LENGTH + FIISC_LENGTH : BBLOCK, 
1860 ALTIMAP_AREA == ALT_BUFFER + FAISC_LENGTH + FITSC_LENGTH : BBLOCK; 
1861 L_DECL; 
1868 
1864 ! First block to write is the boot block. If a boot block was present on the 
1865 ! input volume, write the boot program. Othefwise, set up the message routine 
1908 for the -11 and build the message. 
1888 AF {DOLOCKCOUTPUT ATTBUFCVSR_BOOTBLOCK), DSCS$W_LENGTH] NEQ 0 
1870 BEGIN 
1871 CHSCOPY( 


roe 
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am 


END; 
WRITE_BLOCK(.BOOTBLOCK_LBN, BUFFER); 


STAINIVOL Disk volume initialization 1984 01:00:49 AX-11 Bliss-32 V4.0-74 P 0 
v04= INIT_INDEX] = initialize ODS=-1 index file 12-9 08-1 3b 04:90:62 YBACKUP SRE STAINT VOL 68251 age 7 
777 8 -BBLOCKEOUTPUT _ATTBUFEVSR BOOTBLOCK), DSC$W_LENGTH] 
78 a3 BBLOCKCOUTPUT-ATTBUFCVSR-BOOTBLOCK]. DSCSA-POINTERS, 
780 75 ie BUFFER); 
81 16 BUFFERE4,0,32,0] = =1; ! Initialize with invalid LBN 
78 878 
784 879 BEGI 
785 80 CHSCOPY ( 
786 881 BOOT_PROG_LEN, BOOT_PROGRAM, 
187 b8¢ ager BOOT "MESSAGE. 
789 Sb 12, BUFFER): 
790 885 CHSCOPY ¢ 
791 886 -BBLOCK QUTPUT AT TBUF EVSR_VOLNAME » DSC$W_LENGTH] 
198 887 ;BBLOCK OUTPUT-ATTBUFLVSR-VOLNAME]. DSCSA~POINTERS, 
794 889 BTBSS.VOLNAME, BUFFERCBTBST_VOLNAME)); 
794 89 “ BUF FERL _VOLNAME J 
91 
38 


2 


: Now construct and write the home block. 


00 95 . 
801 96 2 CHSFILL(O, 512, BUFFER); 
80 9 BUF FERCHM{$wW_I@MAPSIZE) = (.OQUTPUT ATTBUF LVSR MAXFILES] + 4095) / 4096; 
80 98 2 BUFFERCHMISL_IBMAPLBN) = ROT(.IDXFILE_LBN, 16); 
8 99 2 BUFFERCHM1SW- ES] = .OQUTPUT_ATTBOFCVSR_MAKFILES); 


MAXF IL 
BUFFERCHMIS$W_CLUSTER) = 1; 
Fue ERENT Ou_STRUCLENS = ,OUTPUT_ATTBUFCVSR_VOLSTRUCTI; 


-BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSC$W_LENGTH] 


S3ssss 
wn 


08 
809 


0% -BBLOCKCOUTPUT—ATTBUFLVSR-VOLNAME]. DSCSA~POINTERI, 

06 HM1$S_VOLNAME, BUFFERCHM1$T_VOLNAME)); 

90 (BUFFERCHATSU_VOLOUNER )<0,8> =". (OUTPUT_ATTBUFCVSR_VOLOWNER])<0,8>; 
(BUF FERCHM1 SW VOLOWNER )<8,8> = 5 (OUTPUT ATTBUF CVSR-VOLOWNER])<16,8>; 
BUFFER HM ROTECT) = .OUTPUT_ATTBUF vSR PROTECT; 


1$W 
HMISW-FILEPROT) = .OUTPUT_ATTBUF 
HM NDOW) = .OUTPUT ATTBUFLY 


14); 
atumiér CREDATE)); 
BUPFERCAMISL_SERIALAUM = .OUTPUT_BADCBAD_SERIALJ; ~ 


-BBLOCKCOUTPUT_ATTBUF[VSR_VOLNAME], DSCSW_LENGTH] 
zBBLOCKCOUTPUT_ATTBUF LVSR_VOLNANE, DSCSA-POINTERS, 


cusctin] $S-VOLNAME2, BUF FERCHM1$T_VOLNAME2)); 
-BBLOCK OUTPUT _ATTBUFEVSR_OWNERNARE » DSC$W_LENGTH) 
zBBLOCKCOUTPUTATTBUF LVSR_OWNERNAME J, DSCSA-POINTERS, 


HM1$S_OWNERNAME, BUFFERCHM1ST_OWNERNAME )); 
CHSMOVE (HA1$S FORMAT, UPLIT BYTE("DECFILE1IA |"), BUF FERCHM1$T_FORMAT]); 
CHECKSUM2 (BUFFER, SBYTEOFFSET(HM1$W_CHECKSUM1)); 
CHECKSUM2 (BUFFER, SBYTEOFFSETCHM1$W_CHECKSUM2)); 
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STAINIVOL Disk volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0-74 Page 31 
v04- INIT_LINDEX1 = initiatize “ODs=1 index file 1a-8ep-19 4 1:92:98 BACKUP.SRCISTAINIVOL .B 2:1 . (11) 
; F 1929 WRITE_BLOCK(.HOMEBLOCK1_LBN, BUFFER); 

Bo OR 

3 B37 19 ¢ ! Finish ed ay tn the VCB, except for the index file window, which is 
; $38 13 ? done after the header is written. 

; 840 1935 vce vcB_ cLusten? = 1; 

; 841 1936 VCBLVCB_HDR_OFFSET] = 2 + syict ERCHM1$W_IBM agst 1ZE); 

; Bag 1937 vCB vcB “MAXFILIDX) = iu FFERCH mis IBMAPSIZE] * 4096; 

; «84 1938 VCBCVCB_IMAP_LBN) = .IDXFILE_LBN; 

> 844 1939 

> 845 1940 

; 846 1941 ! Initialize the memory resident index file bitmap. The first block contains 
3 eee 1386 the initially allocated files marked in use; the rest is all zero. 

; 849 1944 VCBCVCB_IMAP] = GET 7En0. VM( .BUFFERCHM1$W_IBMAPSIZE] * 512); 

; 850 1945 -VCBCVCB_IMAP] = %8°111' 

; 851 1946 

3 S26 1947 2 ‘ 

3 S27 by § Construct and write the index file header. 

; 855 1950 2 LBN = "| eal _LBN + .BUFFERCHM1$W_IBMAPSIZE] - 1; 

> 856 1951 § CHSCOPY 

5 Ft4 1936 § Fasc  LENGTH+FI1SC_LENGTH+FMISC_LENGTH, INITIAL_HEADER_1, 

; 859 1954 2 82, 

; 860 1955 § INCR J frou  BOOTBLOCK.. IDX TO IDXFILE_IDX=-1 DO 

; 861 1956 BEGIN 

3; 862 1957 3 IF .ALLOC_TABLE_CNTC.J] NEQ 0 

; 863 1958 3 THEN MAKE ~POINTER (BUFFER eALLOC_TABLE_CNTC.JJ, .ALLOC_TABLE_LBNE.JJ); 
3: 864 1959 2 END; 

; 865 1960 § 

: 866 1961 ! Now that the basic information has been accounted for, account for the 
3; 867 1306 2 | space required to keep the index file headers. This gets interesting 

; 868 1963 2: if it is necessary to generate extension headers. 

3; 869 1964 2! 

; 870 1965 2 

: 871 1966 2 IDXFILE_EXT_CNT = .ALLOC_TABLE_CNTCIDXFILE_ ip x); 

g ore 5 3 IDXFILE-EXT_LBN = .ALLOC_TABLE_LBNCIDXFILE_1DX); 

3; 874 1969 IF NOT MAKE_POINTER1 (BUFFER, .IDXFILE_EXT_CNT, .IDXFILE_EXT_LBN, UNMAPPED) 
s 875 1970 THEN 

3; 876 1971 BEGIN 

: 877 1976 EXTENSION FID = JX? ILE Ex EXT FID; 

; 878 197 MAP_AREACFM1$B_EX_RVN 0; 

; 879 1974 MAP” AREACFM1$W_EX_FILNUM) = sEXTENS 106 FID; 

; 880 1975 MAP~AREALFM1$W_EX-FILSEQ) = .EXTENSION FID; 

; 881 1976 REALFM1$B_EX_SEGNUM) = 0; 

; 88 1977 CHECKSUM (BUFFER); 

: Sez 1378 WRITE_BLOCK(.LBN + FIDSC_INDEXF, BUFFER); 

3; 885 1980 CHSMOVE (512, BUFFER, ALT_BUFFER); 

3; 886 1981 DO 

: 887 19 ¢ 4 BEGIN 

; 888 19 4 ALT_BUFFERCFHISW_FID_NUM] = .EXTENSION_FID; 

3; 889 1984 4 ALT“BUFFERCFHISW-FID-SEQ) = .EXTENSION_FID; 

: 890 1985 4 ALT“MAP_AREALFM1$B_INUSE) = 0; 


nN 3 
Disk volume initializati 16-Sep-1984 01:00:49 Ax-11 Oi ies -32 vV4.0-7 Page 32 
INIT_INDEX] = initialize ODS=1 index file 1en8ep- 1984 t1i5e208 © LBACKUP’SREISTAINIVOL B92: 1 ety 
g 1386 4 CHSFILL 7 BL oho NGTH-F11$C b NGTH=-FMISC L NGTH, 
; «89 19 4 bard tf elEnetiery C_LENGTH+FA1$C_LENGTH); 
; 89 1988 4 fone ILE ext 1 CBN 1 T_LBN = .ONMAPPED + .IDXFILE_EXT_CNT; 
> 894 1989 4 IDXFILE-EXT-CNT = *ONM ie 
; 895 1990 4 MAP —FULC STATUS = MAKE APRE: R1 (ALT hay - IDXFILE aEXT_CNT, .IDXFILE_EXT_LBN, UNMAPPED); 
> 896 1991 4 ALT“MAP_RREA EALENISW_EX EX_FILNUM] = .EXTENSION_FID + 1; 
; 897 1336 4 ALT_MAP~AREALFM1$W_EX_FILSEQ = EXTENSION: FID + 1; 
; 898 1993 4 IF [MAP-FULL_STATUS 
; 899 1994 4 
; 900 1995 5 BEGIN 
; 901 1296 5 ALT_MAP_AREACFM1$W_EX_FILNUM] = 0; 
: 38 at i ae MAP_AREALFM1$W_ e -FILSEQ] = 0; 
: 904 1999 4 ALT MAP. wre: EX_SEGNUM] = .ALT_MAP_AREACFM1$B_EX_SEGNUM] + 1; 
; 905 2000 4 CHECKSUM (ALT_BUFFER) 
; 906 2001 4 WRITE BLOCK (7 PBN + EXTENSION. FID, ALT_BUFFER); 
; 907 $008 4 EXTENSION_FID = EXTENSION. FID™+ 1; 
; 908 003 4 END 
; 909 2004 3 UNTIL .MAP_FULL_STATUS; 
; 910 2005 = 
>; 911 2006 ; ! Mark any created index file extension headers as‘in use 
> 912 2007 ! 
; 913 2008 ; 
. ate 484 3 (. VCBCVCB_IMAP])<IDXFILE_EXT_FID-1, .EXTENSION_FID = IDXFILE_EXT_FID> = <1; 
; 916 2011 ¢ ELSE 
3: 917 sole 
3; 918 $O1 3 CHECKSUM (BUFFER); 
; 919 014 3 WRITE_BLOCK (. LBN’ + FIDSC_INDEXF, BUFFER); 
: 920 2015 2 END; 
3; 921 2016 2 
; 35¢ 2017 2 CREATE_WINDOW(BUFFER, 1, VCBCVCB_INDEXFJ, 1, 0); 
s 92 2018 2 
3 926 2019 2 
3 S44 $05 § Construct and write the bad block file header. 
3; 927 2022 2 CHSFIL (0, 512-FHISC LENGTH=F11$C LENGTH-FM1$C LENGTH, BUFFER+FHISC_LENGTH+F 11$C_LENGTH+FM1SC_LENGTH); 
> 928 2023 2 BUFFERCFHISW_FID_NUM] = FIDSC_BADBLK; 
; 929 2024 BUFFERCFHISW FID SEQ FIDSC- “BADBLK: 
: 930 2025 MAP_AREA FM1$u_ER-FILNUM = = 
; 931 2026 2 MAPTAREALFM1$W_EX—FILSEQ 
; 932 2027 2 MAP-AREALFM1$B_EX SEGNUM = 0; 
; 933 2028 MAP” AREACFM1$8_INOSE) = 
3; 934 OS) CIDENT_AREALCFITSW_FILENAM 3)<0, 32> = Z%RADSO_11°BADBLK'; 
s 935 030 BAD = OuTPuT BADCBAD, DESC 
3 389 Be INCR ion 0 TO .oUTPUT “BADLBAD -NUMDESCJ-1 DO 
3; 938 $38 IF NOT MAKE_POINTER1 (BUFFER, 1 eeece ne COUNT), .BADCBAD_LBNJ) 
3; 939 2034 THEN SIGNALTBACKUP$_MAXBAD, 1 vcB DEVICE); 
: 940 035 BA % -BAD + BAD_S_BESC; 
3: 941 036 END 
> 942 03 CHECKSUM(BUF FER); 
3; 943 038 WRITE_BLOCK(. fon + FIDSC_BADBLK, BUFFER); 
3 944 039 
> 945 040 
3; 946 041 ' Construct and write the storage map file header. 
: 947 2042 ! 


OOOOOOONOOO 


coe 


NIVOL Disk volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 v4.0 P 
000 INIT_INDERT ~initiatize ODSe1 index file 16 sep 1984 71:90:88 = EBACKupSReastainivor 6$2;1 ae 
48 043 2 CHSFILL (0, 512-FHISC_LENGTH=F11$C_LENGTH=FM1SC_LENGTH, BUFFER+FH1$C_LENGTH+F11$C_LENGTH+FM1$C_LENGTH); 
49 044 GUFFEREEHT Swf TD MUR) = FIDSC_BITMAP; . 7 - 
50 045 2 BUFFERCFHISW-FID-SEQ] = FIDSC“BITMAP: 
51 ug MAP_AREACFM1SB {Ruse = 0; 
2¢ 04 CIDENT_AREACFITSW_FILENAME])<0,32> = %RADSO_11'BITMAP’; 
5 2048 MAKE_POINTER1(BUFFER, 1, .BITMAP_LBN); 
54 049 2 MAKE~POINTER1 (BUFFER, l1iRAPe CNT-1, .BITMAP_LBN+1); 
55 2050 CHECRSUM(BUFFER); 
56 2051 2 WRITE_BLOCK(.LBN + FIDSC_BITMAP, BUFFER); 
57 2052 1 END; 
00396 .BLKB 
17 00398 P.AAC: .BYTE 3 : 
2E 00399 ‘BYTE 46 : 
0001 0001 0039 <WORD 1, 1 ; 
01 01 0039E rte. 4,4 : 
0000 003A0 “WORD 0 : 
0000 003A2 ;WORD 0 : 
0000 003A4 “WORD 0 : 
00 0036 “BYTE 0 : 
00 003A7 “BYTE 0 : 
0000 003a8 “WORD 0 ; 
00000000 00000000 O03AA .LONG 0, 0 : 
0000 00382 “WORD 0 F 
00 00 003B4 “BYTE 0, 0 : 
0000 00386 “WORD 0 : 
0000 00388 ‘WORD 0 : 
0000, 40000 0000 0000 0000 0000 003BA -WORD 0, 0, 0, 0, 0, 0 ; 
BB 00 00 23 06 3A 74 003C6 *RADSO \INDEXF’ Sys< : 
0001 O03CE “WORD 1 : 
0001 00300 "WORD 1 : 
00# 003D2 -BYTE 034] : 
00 003F4 “BYTE 0 : 
00 003F5 “BYTE 0 ; 
0000 0000 003F6 “WORD 0, 0 : 
03 01 OO3FA ‘BYTE 1. 3 : 
00 O03FC “BYTE 0 : 
CC O03FD “BYTE -52 ; 
20 20 41 31 31 45 4C 49 46 43 45 44 OO3FE P.AAD: <ASCII \DECFILE11A \ : 
INITIAL_HEADER_1= P.AAC 
O7FC 00000 INIT_INDEX1: 
<WORD Save R2,R3,R4.R5,R6,R7,R8,R9,R10 > 1816 
5E CE 9E 0000 MOVAB -1028(SP), SP : | 
50 00000005" i 3¢ 9007 MOVZUL OUTPU UT_ATTBUF +88, RO > 1868 | 
0200 8F 00 00000000° FF ee 30 2c 9019 MOVCS RO, @OUTPUT_ATTBUF+92, #0, #512, BUFFER > 1871) 
FEO CD 01 CE 0001 MNEGL #1, BUFFER+4 : 1876 
2 11 BRB 2$° : 1868 
FEOO CD FBCC CF 6 38 025 1$: MOVC3 #38, BOOT_PROGRAM, BUFFE : 1880 
O1DA BF 00 FBEA CF 28 C 00 D MOVCS #40. BOOTTMESSAGE. #0, 5e7G, (R3) : 


4 
NIVOL Disk volume initialization 1b-se =1984 01:00:49 AX-11 Bliss-32 V4.0-74 Pa 4 
INIT_INDEX1 = Initiotice ODS-1 index file 1a-8ep-19 4 o: 4:05 EBACKUP Se STAINIVOL .832;1 9 3 
oC 20 00000000" FF 00000000" EF 2¢ 00037 MOVCS OUTPUT_ATTBUF, QOUTPUT_ATTBUF+4, #32, #12, -; 1889 
FE CD 0044 BUF FERT38 : 
FEOO CD 9F 00047 28: PUSHAB BUFFER + 1891 
FE38 CF : 03 Oe booce Cire | 93. URITE BLOCK : 
0200 &F 00 43 lens 09 2c 0058 mMovcsS #0, (SP) - #0. #512, BUFFER + 1896 
0 00000000' EF OOOOOFFF 8F C1 0005D ADDL3 #4095, OUTPUT_ATTBUF+52, RO + 1897 
24 4 $b 081000 F (7 9069 DIVL3 #4096, RO, R17 : 
FEOO §= CD 1 60 00071 MOVW oR BUFF : 
FEO2 CD 4C AB 10 9C 00076 ROTL #16, 76(P$), BUFFERS? + 1898 
FEO6 CD 00000000° FF B 99070 MOVW § OUTPUT_ATTBUF+52, BUFFER+6 + 1899 
FEOB CD 1 8 86 MOVW #1, BUFFER+ + 1900 
FEOC CD 00000000" EF 80 00088 MOVW  OUTPUT_ATTBUF+64, BUFFER+12 + 1901 
oc 00 00000000" FF 00000090" EF C 9009% MOVCS OUTPUT ATTBUF Q@OUTPUT_ATTBUF+4, #0, #12, - : 1906 
FEIE CD 00000000' EF 90 O00A4 MOVB  OUTPUT_ATTBUF +40, BUFFER+30 + 1907. 
FEIF CD 00000000" EF 90 O00AD MOVB § OUTPUT“ATTBUF +42, BUFFER+31 : 1908 
FE20 CD 00000000" EF B80 00086 MOVW § OUTPUTATTBUF +68. BUFFER+32 + 1909 
FE24 CD 00000000' EF B80 000BF OVW  OUTPUTZATTBUF+70, BUFFER+36 + 1910 
FE2C CD 00000000" EF 90 000C8 MOVB § OUTPUT“ATTBUF +82, BUFFER+44 + 1911 
FE2D CD 00000000" EF 90 00001 MOVB § OUTPUT“ATTBUF +76, BUFFER+45 : 1912 
FE2E CD 00000000' EF 90 OOODA MOVB  OUTPUT“ATTBUF +83, BUFFER+46 : 191 
FE3C CD OF O00E3 PUSHAB BUFFER760 + 1914 
00000000" EF 9F OO00E7 PUSHAB OUTPUT_ATTBUF +24 : 
000000006 02 FB OO0ED CALLS #2, TO-ODS1_DATE F 
50 00000000" EF DO 000F4 MOVL OUTPUT BAD, ~RO + 1915 
C8 AD 4 AO 00 000FB MOVL  4(RO), BUFFER+456 : 
0c 20 00000000" FF 00000000" EF 2c 90190 MOVCS OUTPUT ATIBUF , QOUTPUT_ATTBUF+4, #32, #12, -: 1920 
0c 20 00000000" FF 00000000" EF 2C 0010F MOVCS OUTPUT ATTBUF+8, QOUTPUT_ATTBUF+12, #32, - : 1925 
E4 AD 0011¢ #12, BOFFER+484 ; | 
FO AD FED1 CF OC 28 OO11E MOvc3 ie, P.AAD, BUFFER+496 : 1926 
3A DD 00125 PUSHL #5 + 1927 
FEOQO CD 9F 00127 PUSHAB BUFFER : 
000009006 00 02 FB 00128 CALLS #2, CHECKSUM2 ; 
7E O1FE 8F 3C 00132 MOVZWL #510, -(SP) : 1928 
FEOO CD OF 00137 PUSHAB BUFFER : 
000000006 00 02 FB 0013B CALLS #2, CHECKSUM2 : 
FEOQO CD OF 00142 PUSHAB BUFFER : 1929 
40 AB DD 00146 PUSHL  64(P$) : 
FD3D—sCF 02 FB 00149 CALLS #2, WRITE_BLOCK ; 
52 18 AB OD D014 MOVL  24(P$), R2 : 1935 
04 Ag 01 g0 0015 MOVW = #1, 4(R2) ~ : 
5 FEOO CD 3¢ 00156 MOVZWL BUFFER. R3 r + 1936 
1A 2 33 02 Al 00158 DW3 #2, R3, 26(R2) F 
a 5 0C 78 00160 ASHL #12, R&, 38 (RO) + 1937 
14 Ag 4C AB b0 90163 MOVL 76(P$), 20(R2) : 1938 
7E 5 09 16A ASHL #9, R3, -(SP) s 1944 
000000006 00 gi FB 00166 CALLS #1. GET ZERO_VM F 
10 A2 : DO 0017 OVL Q, 16(R2) ; 
10 a 07 DO 00179 #7. a16(R2) + 1945 
57 4C AB C1 0017D ADDL3 76(P$), R3, R7 : 1950 
5 of 0182 DECL. LBN ; 
0200 8F 00 FEO3 CF 0066 er C aE MOVCS #102, INITIAL_HEADER_1, #0, #512, BUFFER  ; 1951 
53 20 AB 9E 00192 MOVAB 32(P$), R3 : 1957 


as _—_— — —- -—— - —— FF 
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| STAINIVOL Disk volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0-74 P 5 
v04 INIT_INDEX1 = initialize ODS-1 index file 13-808-1 384 91:90:62 EBACKUP SRE STAINIVOL .B32;1 age 473 
52 D4 001 am 4 : 
| 634 D3 O18 3$ TSTL (R3)CJI : 
| 12 13 00198 BEQL © 4$ ; 
3¢ aps DD 0019D PUSHL 60¢Ps) (J : 1958 
| 6342 DD OO1A1 PUSHL (R3)EJ : 
FEOO CD 9F O01A4 PUSHAB BUFFER : 
000000006 99 6 FB OO1A8 CALLS #3, MAKE_POINTER1 : 
ES F3 OOIAF 4$ AOBLEQ #3, { + 1955 
| 39 10 A3 00 00183 MOVL  16(R35, IDXFILE_EXT_CNT > 1966 
: 4C AB 00 00187 MOVL  76(P$). {DXF ILEZEXTILEN + 196 
5 01 A? 9 001BB MOVAB 1(R7), R + 197 
4100 ef BB 1B PUSHR #*M<RB,SP> + 196 
| 9 pp 01C PUSHL IDXFILE_EXT_CNT : 
FEOO } CD 9F 001C5 PUSHAB BUFFER : 
000000006 00 04 FB 001¢9 CALLS #4, MAKE_POINTER1 : 
03 0 E9 0100 BLBC =._-«aRO,._ ‘S$ : 
OOA4 31 9010 BRW 8$ : | 
56 06 DO 00106 5$ MOVL #6, EXTENSION_FID : 1972) 
FESC CD 84 00109 CLRW  MAP_AREA + 1976. 
FESE CD 56 BO 001DD MOVW § EXTENSION_FID, MAP_AREA+2 : 1974. 
FE6O © CD 56 BO OO1E2 MOVW EXTENSION-FID, MAPAREA+4 + 1975 
FEOO CD OF OOTE PUSHAB BUFFER + 1977 
000000006 00 01 FB OO1EB CALLS #1, CHECKSUM : | 
FEOO CD OF OO1F2 PUSHAB BUFFER : 1978 
52 DD 001F6 PUSHL R : 
FCBE CF 02 FB 001F8 CALLS #2, WRITE_BLOCK : 
04 AE FEOO CD 0200 8F 28 O01FD mMoVCS #512, BUFFER, ALT_BUFFER + 1980 
06 AE 56 BO 00206 68: MOVW § EXTENSION_FIO, ALT_BUFFER+2 > 1983 
08 AE 56 BO O020A MOVW EXTENSION“FID, ALT ~BUFFER+4 : 198 
68 AE 94 00205 CLRB T_MAP_AREA+ : 198 
019A BF 00 6E a 00 2c dogt1 MOVCS #0,~(SPT, #0, #410, ALT_BUFFER+102 : 198 
50 58 —E C3 O021A 3 UNMAPPED, IDXFILE_EXT_LBN, RO : 1988 | 
58 50 9 Ci 0021 ADDL3 IDXFILE_EXT_CNT, RO, IDXFILE_EXT_LBN : 
59 E 00 0022 MOVL UNMAPPED, IBXFILE_EXT_CNT : 1989 | 
4100 8F 8B 00 PUSHR #*M<RB,SP> + 1990 | 
59 DD 00229 PUSHL IDXFILE_EXT_CNT : 
10 AE 9F 00228 PUSHAB ALT_BUFFER : 
000000006 00 4 FB 00 CALLS #4, "MAKE POINTER : 
of 0 D 00 MOVL. RO, MAP_FULL_STATUS : 
50 01 Ab 3 0 MOVAB 1(R6), RO ; 1991, 
62 AE 50 BO 0023C¢ MOVW RO, ALT_MAP_AREA+2 ; | 
64 AE 30 BO 00240 MOVW RO, ALT “MAPTAREA+G : 993 
A €9 0 44 BC MAP_FULC_STATUS, 7$ > 1993 | 
62 AE b4 47 CLRL  ALT“MAP_ARE : 1996 | 
60 AE 96 0024A 7S CB ALT “MAP~ARE : 1999 | 
4 AE 9F 00240 PUSHAB ALT BUFFER : 2000 | 
000000006 00 01 FB 00 30 CALLS #1,7CHECKSUM : 
04 AE 9F 00 SHAB ALT_BUFFER > 2001 
6647 9F O025A PUSHAB (EXTENSION _FID)CLBN) 3 
FC29. CF 2 FB 0025D CALLS #2, WRITE BLOCK : | 
6 06 0262 INCL EXTENSION7FID : 2002 
9F SA ED 00264 BLBC MAP FULL STATUS, 58 > 2004 
50 18 AB DO 00267 MOVL 24(P$), R : 2009 
56 6 C2 00268 SUBL2 #6, R6 : | 
10 80 56 05 FFFFFFFF F FO 00 oF INSV  #=1, #5, R6, @16(RO) : 
16 11 00 BRB 9$ > 1969. 


f 
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| STAINIVOL Disk volume initialization bese -1984 01:00:4 AX-11 Bliss-32 V4.0-74 Page 
| INIT_INDEX1 = initialize ODS=1 index file aaa 1 a: O68 BACKUP. SRCISTAINIVOL .B 2:1 . a¥ 
FEOO CD 9F OO27A 8S: PUSHAB BUFFER : 2013 
000000006 00 gf FB 43 CALLS #1, CHECKSUM : 
FEOO : OF 8 PUSHAB BUFFER + 2014 
DD 00289 PUSHL : 
FBFB cr 0 FB 0 CALLS #2, WRITE_BLOCK ; 
E 7D 00290 9$: mOvVG =(SP) + 2017 
18 AB DD 0029 PUSHL  246(P$) : 
01 0D 36 PUSHL : 
FEOO CD 9F 0029 PUSHAB BUFFER : 
000000006 00 5 FB 0 6 CALLS #5, CREATE_WINDOW : 
019A BF 00 6E oa 0 2¢ 0 a3 MOVCS #0. (SP), #O, #410, BUFFER+102 + 2022 
FEO2 CD 00030008 SF DO 002AD MOVL #196611 BUFFER*2 : 2023 
FESE CD p4 0286 CLRL -MAP_AREA+ + 2025 
FESC CD 94 OO2BA CLRB  MAPTAREA : 2027 
FEOG CD 94 O02BE CLRB  MAP-AREA+8 + 2028 
4333 CD OE6BOCAC F pO 002C MOVL gga Teveged. IDENT_AREA : 2029 
52 00000000' EF 08 C1 00 cB ADDL3 #8, OUTPUT BAD, BAD + 2030. 
4 00000000" FF 00 99 D MOVL  @OQUTPUT_BAD, R4 : 2031 
53 01 CE O002DA MNEGL #1, J : | 
2A 11 99 DD BRB 12$ ; 
62 DD OO2ZDF 10$: PUSHL (BAD) + 2033 
04 A2 DD 0021 PUSHL  4(BAD) : 
FEOO CD 9F 00264 PUSHAB BUFFER : 
000000006 00 03 FB 002€8 CALLS #3, MAKE_POINTER1 : 
14 50 EB OO2ZEF BLBS 1 ; 
7E 18 AB 20 1 o0cre ADDL3 #32, 24(P$), -(SP) t 2034. 
01 DD 002F PUSHL # ; | 
000000006 8F DD 002F9 PUSHL ACKUP$_MAXBAD ; | 
000000006 00 03 FB OOoFF CALLS #3, LIBSSIGNAL F | 
2¢ 08 CO 00306 11$:  ADDL2 #8. BAD : 2035) 
D2 5 54 F2 00309 12$:  AOBLSS R4, J, 10$ : 2031) 
FEOO CD 9F 0030D PUSHAB BUFFER : 2037. 
000000006 00 61 FB 00311 CALLS #1, CHECKSUM : 
FEOQO §«=60CDSCOOF: «00318 PUSHAB BUFFER : 2038. 
03 A? 9F 0031C PUSHAB 3(LBN) : | 
FB67 «CF 02 FB 0031F CALLS #2, WRITE_BLOCK ; 
019A —s«BF 00 6E a 00 2¢ 00524 MOVCS #0. (SP), "#0, #410, BUFFER+102 : 2043 | 
FEO2 CD 00020002 8F dO O03¢E MOVL #131074, BUFFER+2 > 2044. 
FE64 CD 94 00 CLRB  MAP_AREA+ > 2046. 
FE2E CD SI780DFC 8F DO 0033B MOVL § #1366822396, IDENT_AREA > 2047. 
50 AB DD 00344 PUSHL  80(P$) > 2048 | 
01 BD 00 47 PUSHL : 
FEOO CD 9F 00349 PUSHAB BUFFER : | 
000000006 00 03 FB 00 4D CALLS #3, MAKE_POINTER1 BaP; 
7E 50 AB 01 C1 00354 ADDL3 so, B0(P8), -(SP) + 2049. 
7E 34 AB 01 ¢3 00 39 SUBL3. #1 (P$). =(SP) : | 
FEOO CD 9F 00 PUSHAB By FER ; | 
000000006 00 03 FB 00 CALLS #3, MAKE_POINTER1 F | 
FEOO CD 9F 0036 PUSHAB ER + 2050 
000000006 00 01 FB 0036D CALLS #1, CHECKSUM : 
FEOO CD 9F 00374 PUSHAB BUFFER : 2051 
FBOB CCF . b3 Pe § ie attics 63 ee Te BLOCK : 
04 00380 RET . : 2052 
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1B-se 1984 01:00:49 AX-11 Bliss-32 V4.0- 
1 7355-138 94:90:68 tBACKUP-SRe STAINIVOL 


file is used 
s PLIT must 


HEADER area 

ident area offset 

map area offset 

access control List offset 
reserved area offset 

file segment number 


structure version and level 


e 
extension file ID 
fixed length record type 
no record attributes 
record si 


ze 
' HIBLK and EFBLK 
' EOF byte offse 


t 
bucket size & VFC Length 
maximum record length 


' defauit extend size 


unused record attributes 
file characteristics 
record protection 


mapwords in use & access mode 


file owner UIC 

file protection 
directory back Link 
journal control flags 


spare 
high water mark 
IDENT area 


file name, type and version 


revision number 


ume {ni stat ization 
ODS-2 file header 
ZSBTTL ‘Initial ODS-2 file header’ 
! Initial file header. The pending bad block log 
' since it is the first one written. Note that thi 
: be updated whenever fields are added to the file header. 
SASSUME CEHSC_LENGTH, EQL, 89) 
SASSUME (FICSC“LENGTH, EQL, 120) 
BIND 
INITIAL_HEADER = UPLIT ( 
BYTE (FH2$C_LENGTH / 2) 
BYTE niittie LENGTH + F{2 
BYTE (SBYTEOFFSET CFHgsH 
BYTE (SBYTEOFFSET (FHOSW 
WORD (0), 
BYTE (1, 2), 
WORD (FID$C{BADLOG, FIDSC_BADLOG, 0), 
WORD (0, 0,70), 
BYTE (FATSC_FIXED), 
BYTE (0) 
WORD (165 
LONG (0, 1°16), 
WORD (05, 
BYTE (0, 0), 
WORD (16), 
WORD (0), 
WORD (0 0, 0, 0, 0, 0), 
LONG (05, 
WORD (0), 
BYTE (0, 0), 
LONG (05, 
WORD (0), 
WORD (FIDSC_MFD, FIDSC_MFD, 0), 
WORD (0), 
WORD (0), 
LONG (1), 
BYTE (*BADLOG.SYS;1 *}, 
WORD (1), 
LONG (0, 0, 0, 0, 0, 0, 0, 0) 
REP FI2$S_FILENAMEXT OF BYTE 


ates 
file name extension 
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STAINIVOL Disk volume initialization 16-Sep-1984 01:00:4 AX-11 Bliss*32 V4.0-74 
yoet00% INIT_LINDEX = initial ice ODS-2 index file 19-808- 1382 te 4:0 EBACKUP. SRe STAINIVOL .852;1 
3; 1004 7 1 ZSBITL “INIT_INDEX = initialize ODS-2 index file’ 
3 : 5 38 : ROUTINE INIT_LINDEX: L_P$S NOVALUE= 
:1 100 1 44 
3 108 101 1! 
. 7 1 ¢ 1 ! FUNCTIONAL DESCRIPTION: 
3 1010 1 1! This routine initializes the contents of an ODS=2 index file. 
3 iON) ; : : : It writes the boot block, the home blocks, and the initial headers. 
; 1918 1 1 ! INPUT PARAMETERS: 
3 1014 ek NONE 
3 1015 108 1! 
3 Isis 109 1! IMPLICIT INPUTS: 
3 101 110 1! NONE 
3; 1018 111 17! 
3; 1019 ig 1 ! OUTPUT PARAMETERS: 
; 1020 113 1! NONE 
3: 1021 1144 1! 
3: 10 ¢ 115 1°! IMPLICIT OUTPUTS: 
: 102 1146 1! NONE 
3 1024 ae 
3; 1025 118 1 =! ROUTINE VALUE: 
3; 1026 119 1! NONE 
3: 1027 120 1! 
; 1028 121 1 ! SIDE EFFECTS: 
3; 1029 138 1! NONE 
: 1030 1 1! 
3 1031 124 1 !=- 
3 1038 \$3 1 
3; 103 2126 BEGIN 
3 1034 2127 LOCAL 
: 1035 $158 BUFFER: BBLOCK(512], ' Block buffer 
: 1036 129 LBN, ' Current LBN 
3; 1037 130 § MAP_COUNT, ' Count field of map pointer 
3; 1038 131 MAP_LBN, ' Start LBN of current map pointer 
3 1975 136 ane REF BBLOCK; ! Pointer to bad block entry 
3 1041 $i3z IDENT_AREA = BUFFER + FH2$C_LENGTH : BBLOCK; 
3 os 133 L_DECL; 
3 104 136 
3 1044 137 
3 1045 138 : First block to write is the boot block. If a boot block was present on the 
3: 1046 2139 ! input volume, write the boot program. Otherwise, set up the message routine 
3 od zich for the -11 and build the message. 
: 1049 | IF .BBLOCKCOUTPUT_ATTBUFCVSR_BOOTBLOCK], DSCSW_LENGTH] NEQ 0 
3; 1050 14 THE 
3 1051 144 BEGIN 
3 1936 145 3 CHSCOPY ( 
3 105 146 -BBLOCK COUTPUT _ATTBUF [VSR BOOTBLOCK . DSC$W_LENGTH) 
3 ee ioe BBLOCKCOUTPUT_ATTBUFCVSR_BOOTBLOCK], DSCS$A~POINTERS, 
; 1056 149 fe UFFER); 
> 105 150 pur FERCL.0,32,0) = -1; ! Initialize with invalid LBN 
; 1938 151 END 
: 105 126 ELSE 
3: 1060 15 BEGIN 


| 
| 


4 

STAINIVOL Disk volume Tots tol tgetton 1h-sep-19 4 91:90:69 ary Bliss-32 V4.0-74 Page 40 
04 INIT_INDEX = initialize ODS-2 index file 14-Sep-1984 11:54:05 BACKUP. SRCJSTAINIVOL.B32;1 (13) 
: 1061 154 CHSCOPY ( 

; 106¢ 155 BOOT_PROG_LEN, BOOT_PROGRAM, 

; 1963 $ seams BOOT"MESSAGE, 

: 1065 138 {2, BUFFER); 

: 1066 159 CHSCOPY ¢ 

: 106 160 -BBLOCK OUTPUT _ATTBUF EVSR_VOLNAME , DSCSW_LENGTH] 

: 1068 161 -BBLOCKCOUTPUT_ATTBUFLVSR-VOLNAME], DSCSA-POINTERS, 

3 1970 188 . BTBSS_VOLNAME, BUFFERCBTBST_VOLNAME)); 

; 107¢ 165 2 WRITE_BLOCK(.BOOTBLOCK_LBN, BUFFER); 

sti 9 

: 1075 168 ! Now construct the home block and write it to the remainder of the boot 
: 1076 198 : block cluster and to the two home block clusters. 

: 1078 171 CHSFILL(O, 512 BUFFER): 

: 1079 17 BUFFERCHM2SL_HOMELBN) = .BOOTBLOCK_LBN ¢ 1; 

; 1080 17 BUF FERCHM2S$L_ALHOMELBN) = .REAL_HOMEBLOCK; 

> 1081 174 2 BUFFERCHMCSL_ALTIDXLBN) = .IDXHOR2_LBN; 

3 108@ 175 2 BUFFERCHM2SW_STRUCLEV] = .OUTPUT_ATTBUFLVSR_VOLSTRUCT); 

: 108 176 2 BUFFERCHM2SW-CLUSTER] = . CLUSTER: 

> 1084 177 2 BUFFERCHM2SW_HOM = 2; 

: 1085 178 2 BUFFERCHM $u“ALHOMEVBN} = ,REAL_HOMEBLOCK = .HOMEBLOCK2_LBN + .CLUSTER * 2 + 1; 
: 1086 179 2 BUFFERCHM2SW-ALTIDXVBN] = .CLUSTER * 3 + 1; 

3 108 180 BUF FERLHM2SW_IBMAPVBN] = .CLUSTER * 4 + 1; 

: 1088 181 2 BUFFERCHM2SL_IBMAPLBN) = .IDXFILE_LBN; 

: 1089 188 BUF FERCHMOSL_MAXFILESJ = .OUTPUT ATTBUFCVSR_MAXFILES); 

: 1090 18 BUF FERCHM2$W_IBMAPSIZE) = (.OUTPOT_ATTBUFLVSR_MAXFILES) + 4095) / 4096; 
: 1091 184 2 BUFFERCHMOSWRESFILES) = 9; 

; 109¢ 185 BUFFERCHM2SW-RVN) = ourput ATTBUF CVSR_RVN); 

> 109 186 2 IF .OUTPUT_ATTBUFCVSR_RVN) EQL 1 

: 1094 187 2 THEN 

: 1095 188 BUF FERCHMZSY SETCOUNT) = .COM_O_SETCOUNT; 

> 109 189 2 BUFFERCHM2$W¥_VOLCHAR) = .OUTPUT_ATTBUFCVSR VOLCHAR); 

> 1097 190 2 BUFFERCHM2SL-VOLOWNER) = .OUTPUT_ATTBUFLVSR VOLOWNER); 

: 1098 191 2 BUFFERCHM2SW_PROTECT) = .OUTPUT RT TBUFLVSR PROTECT); 

: 1099 198 BUF FERCHMOSW~FILEPROT) = .OUTPUT_ATTBUFLVSR_FILEPROTI; 

: 1100 19 BUFFER RECPROT)] = .QUTPUT ATTBUFCVSR RECPROT): 

> 1101 194 (BUFFER $0_CREDATE)) = , (OUTPUT ATTBUFCUSR VOLDATE)): 

: 1108 195 2 (BUFFERLHM2$Q~CREDATE)+#4) = .(OUTPOT ATTBUFLVSR VOLDATE]+4) 

+ 110 196 BUFFER _QINDOW) = .OUTPUT ATTBUFCYSR wINnDO@); 

+ 1104 19 BUF FERCHM2SB RY LIM] = .OUTPUT_ATTBUFLVSR LRU LIA): 

> 1105 198 2 BUFFERCHMOSW EXTEND) = .OUTPUT_ATTBUFCVSR EXT : 

: 1106 199 2 (BUFFERCHM2$0_RETAINMIN]) = . (OUTPUT ATTBOFLVSR_RETAINMIN)); 

: 110 00 2 (BUFFERCHM2SQ-RETAINMIN]+4) = .(OUTPOT_ATTBUFLVSR RETAINMINI+4); 

: 1108 91 (BUF FERCHM2$Q-RETAINMAX]) = . (OUTPUT ATTBUF var RETAINMAX)) ; 

: 1109 3 (BUF FERCHM2$SO0-RETAINMAX]+4) = . (OUTPOT_ATTBUFCVSR_RETAINMAX)+4); 

: 1110 BUF FERCHM2 L SERIAL NUR) = ,OUTPUT paDtBAD SERIALJ; 

21911 CHSFILL(2C* He S STRUCHARE , BOF FERCHM2$T_STRUCNAME)); 

; 111g 05 if -OUTPUT_ATfeuFCVSR_RVN) NEQ 0 

+ 1114 $$ CHSMOVE (HM2$S_STRUCNAME, COM_O_STRUCNAME, BUFFERCHM2$T_STRUCNAME}); 
: We 3 nae +e OUTPUT_ATTBUF[VSR_VOLNAME], DSC$W_LENGTH) 

: WW? 10 -BBLOCKCOUTPUT~AT TBUF VSR-VOCNARES; DSCSA“POINTERS, 
i 


| 
| 
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SS SS SESS SESE SS yoy oy at tt ot 
NOU EW 
PRIPIRIPIPIPNIPINININPIPINPINPIPYAPINIPINININPINPINPININY 


RAN23SS 


zc’ *. 
nn2SS -VOLNAME, BUFFERCHM2$T_VOLNAME)); 
CHSCOPY( ~ — ee 
-BBLOCKLOUTPUT_ATTBUF CVSR_OWNERNAME], D cout LE 
LOCKLOUTPUT TATTBUFLVSR-OWNERNAME), DSCS$A-PO 


S 
SCSA_ 
28 BUF FERCHM2$T_OWNERNAM 1, 
cHSMOVE (HRGSS Crommat. Up! Briecoecritenia 
DECR J FROM segs STER=1 1 00 
wi TE HOREBLOCK UFFER) 
BUF FERCHM2SL_H OMELBN HOMEBLOCK1_LBN; 
DECR J FROM “Crust RTO. i 


i] 
L -HOMELBN c " MOREBLOCK2 LBN; 
WRITE OHOMEBLOCK (BUFFER) « 


» BUFFERCHM2$T_FORMAT)); 


! Finish or oe a the VCB, except for the index file window, which is 
: done after the header is written. 


WAAR PORIPONINONONNONY 4 2 


vce VCB_ODS_2] = TRUE; 

vcBCvcB B-CLUSTER] ; BUF FERCHM2$W CLUSTER: 

vcB Mi “HDR_OFFSET) = = orks HM2$W STER] © 4 + BUF FERCHM2$W_IBMAPSIZE); 
vcetv RAXPS IDK] = .BUFFE RCHRZBM MTGHAPSI Te) * * 4096; 


vcB vee TRAP LBN) = DXF ILELL 


! Initialize the memory resident index file bitmap. The first block contains 
the initially allocated files marked in use; the rest is all zero. 


veecyce IMAP] = GET _ZERO_VM( .BUFFERCHM2$W_IBMAPSIZE) * 512); 
IF .vcervce AVESETI 

THEN Brvee. = 28°111111111° 

ELSE "VC vcB- IMAP = %8°100000111'; 


Fk tek ek el eet ee eek 


MIMIPOPONIPONOUNT 


: Construct and write the pending bad block log file header. 


LON =< IDXF ILE, LON + .BUFFERCHM2$W_IBMAPSIZE) - 1; 
~ LLENGTH+FI2$C_LENGTH, INITIAL_HEADER, 


SESSSSsss 


1 “FitEounend = .OUTPUT_ATTBUFCVSR_VOLOWNER); 
FILEPR ROT] = ,OUTPUT_ATTBUFCVSR af ALEROTI: 
Sue CPROT) TPU T ATTBUFLVSR RECPRO 
AREAL CREDATE)) = ourey Trey f FtVSR eV VOLDAT 
ate $0” ~EREDATE +6) = OU OUT POT. Teurey VSR avoud 

£}) = (OUTPUT Attu F VSReV 
“MEALE ~REVDATE +4) = ,(OUTPOT _ATTBUF Ryo VOLD 


BLOCK ( ten’ + FIDSC_BADLOG, BUFFER); 


LO een 
Tl eee ta 


NI 
cSon 


MARES ES EMMA 


3 3 
3; 1 
3 1 
3; 1 
3 1 
3 1 
3 1 
3 1 
3 3 
3 1 
3 1 
s 1 
3 1 
, 5 
3 1 
3 1 
. 
3 1 
3 1 
3 1 
3 
3 1 
3; 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
ee 
3 1 
S 
3 1 
. 3 
3 1 
3 1 
3 1 
s 7 
3 1 
2 5 
s 3 
3 1 
os 
3 1 
3 1 
s 1 
7 
3 1 
: 
s 1 
s 1 
3 1 
3 1 
3 7 
3 1 


ce ce ce ee et ee ec ee ce et cd ed ee ed ce el ce el ce ced ee ee el cel cel cel el ee el eel el cel cl el cel cel cl cl cel el cel cel el cl cls cl ld ld 
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: Construct and write the index file header. 


———_——__- —-  ----— — -—---- - Se -OC r 7  > — — ———___—— — eee —_< 


ae NoSB MAP INS Lone Teor ese, LENGTH, BUFFER+FH2$C_LENGTH+F I2$C_LENGTH) ; 


% W-FID“NUM) = F ipéc -BADBLK: 
FH2SW_F1D-SEQ F IDSC" BADBLK 
0 UAL By TEC BAD BLK’), IDENT _AREACF 12$T_F ILENAME)); 


BAD"= OUTPUT BAD(BAD_DESC): 
IN CRY FROM 0 TO .OUTPUT_BADCBAD_NUMDESCJ-1 DO 


tur COUNT + -BADCBAD_COUNT); 
IF ROT OINTER (BUFFER, ;BADCBAD COUNT 
THEN SIGNAL TBACKUP MAXBAD, i, VCBLVCB_DEVICE3); 
BAD_S DESC; 


BUFFER 
CHSMOVE ( 


BADCBAD_LBN)) 
»BAD + 


OARS WN SO OONOUS WIN O 


BBLOEK acme FH2$W_RECATTR], FATSL_HIBLK 
BBLOCK BUFFER rH osu" WTRECATTR] FATS perk 
BUFFER FH2SL OH 1; 

CUE CK SUN CS 
WRITE sBLOEK fit + FIDSC _BADBLK, BUFFER); 


ROT(.MAP_COUNT, 16); 
ROT(.MAPCOUNT+1, 16); 


ea 
STAINIVOL Disk volume initialization 16-Sep-1984 0:49 AX-11 Bliss-32 v4.0-7 Pp 2 
904-000 INIT_INDEX = initialize ODS-2 index file 19-808-1 382 9} £00: 4:05 BACKUP. SRC STAINIVOL.B 2:1 age 445 
: 1175 68 BUFFERCFH su f1D _NUM) = F IDSC_ INDEX F; 
: 1176 $ BUFFER rH FID™ fd FIDSC-INDEXF:; 
: 117 0 BBLOCK FER FAS$W_RECATIR > FATSW_RSIZE} = 512 
; 1178 71 OCK BUFFER FHOSWRECATTRI. FATSW MAXRECI = 512; 
; 132 i BBLOCKE UFFERLFH2$W_RECATTRI, FATSL_AIBLK) = 
:1 7 ROT(.CLUSTER®4 s1DXF ILE CNT 16); 
: 1181 7%, BBLOCK CBUFFER FH2$W_RECATTRI, FATSL preuK = 
: 11 é 75 ROT(, bus ER*4 F (OUTPUT ATIBUF VSR_MAXFILESI*4095)/4096 + .OUTPUT_ATTBUFLVSR_MAXFILNUM] + 1, 16); 
: 118 i: BUFFERCFHOSL_HIGHWATER) = ash 
: 1184 7 (. OUTPUT AT TBUF CVSR_MAXFILESJ+ +4095) (4096 ,OQUTPUT ATTBUFCVSR_MAXFILNUM] + 1; 
: 1185 8 CHSMOVE(6, UPLIT BY VTEC TNDEXE ), IDENT_AREALFI2$T_F ILERAME)); 
; 1186 ? =COUNT = sBOOTBLOCK CNT; 
: 118 80 2 MAP"LBN = ,BOOTBLOCK 
; 1188 81 INCR J J FROM BOOTBLOCR IDK + 1 TO IDXFILE_IDX DO 
: 1190 68 IF MAP _COUNT + .MAP_LBN EQL .ALLOC_TABLE_LBNL.J) 
; 119¢ 285 MAP_COUNT = .MAP_COUNT * .ALLOC_TABLE_CNTC.JJ 
711 286 ELSE 
: 1194 287 4 BEGIN 
> 1195 288 4 MAKE POINTER (BUFFER map ches .MAP_LBN) ; 
+ 1196 289 4 MAP “COUNT = .ALLOC_fAB 
3: 1197 $30 4 MAP"LBN = “acLoe _TABLE nia 
: 1199 $33 aed 
3 1200 2098 MAKE POINTER (BUFFER, -MAP_COUNT, .MAP_LBN); 
> 1201 294 2 CHECRSUM(BUFFER); 
; 1208 2295 2 WRITE_BLOCK(.LBN + FIDSC_INDEXF, BUFFER); 
: 120 3296 INCR J FR . CLUSTER=1 
: 1204 29 DO WRITE BLOCK ( IbXHDRE LBN+.J, BUFFE 
: 1205 2298 2 CREATE_WINDOW(BUFFER, .9CBL cB RVN) vcBLvce INDEXF], 1, 0); 
> 1206 2299 BBLOCK”C.VCBLVCB_INDEXFJ, WCB um) = CLOSTERS4 ; 
3 1207 2300 ( OUTPUT_ATTBUFLVSR TWAXF ICES 13609 74096 +941; 
: 1209 2302 
: 12 30 : Construct and write the bad block file header. 
3 12 2304 
: 12 2305 
: ! 06 2 BUFF 
3 1 
3 1 
3 1 
3 1 
.. 
s 1 
3 1 
3 1 
2 
s 1 
3 1 
3 1 
3 1 
3 7 
3 1 
: 1 
3 1 
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ume initiali 9 
initialize ODS-2 index file 14-Sep-1984 11:54:05 
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INDEX = BACKUP.SRCJSTAINIVOL .652;1 (13) 


= 
BBLOCK(BUFFERLFH2$W_RECATTRI, FATSL_WIBLK) = ROT(.BITMAP_CNT, 16); 
BBLOCK(BUFFERLFHOSW-RECATTRI. FATSL-EFBLK] = ROT(( VOLUME SIZE/. CLUSTER+4095)/4096 + 2, 16); 
BUFFERCLFH2$L_HIGHWATER) = (. VOLUME Size/ CLusTERe4o9 1/4096 + 2: 
SMOVE REALE $T_FILENAM 


VMIFSWN—OOONOuW «=x 


6, UPLIT BYTE(*BITMAP’), IDENT A 
MAKE POINTER (BUFFER, -BITMAP_CNT, .BITMAP_L 


! If this is a save set volume we are initializing, also set up the headers 
! of the miscellaneous reserved files. If the volume is being restored to, 
then the restore process will create these files. 
If .VCBCVCB_SAVESETJ 
THEN 

BEGIN 


} Turn the header into the continuation file header and write it. 


Nm nm rmrr Mrrorororrrorororrrrr— - 


ro To ateal¥al “al val al al aheal al *al mot ae et et ae at ae ot at lee 8 


CHSFILL (0, 512-FH2SC LENGTH~F128C_LENGTH, BUF FER+FH2$C_LENGTH+F 12$C_LENGTH); 
BUFFER FSB MAP INUSEJ = 0; 
FH2$V-CONTIG) = FALSE; 
BBLOCK oft ie ta » FATSL_HIBLK] 
FH2SW-RE 


WN O OONAUSWN $9 OONOU EWN" OOONOUE wn 


ao 


0: 
1416: 


LOCKLBUFFER CATTRJ, FATSL_EFBLK) 


—OOWODNAUVUES WO OONAOULS WN OOO 


MIMIMINOTURI NON Popofonononnory MIN) 


88 
BUFFER ate FID-ARy 


SUSAR 


POIPOIPIPIPIPIPIPIPINIPIPIPINININININITNINININININININININININININININININININININ = Oo 


adadadadatatdatatadatdatadadatatiadbaiatataadiadatatabatat dbatiatiabatatad Sab atabatad id abablabiablaabadadtabdadadabadbadbadead g 


Construct and write the storage map file header. 

CHSFILL(O, 512-FH2$C LENGTH SEC LENGTH, BUF FER+FH2SC_LENGTH+F I2$C_LENGTH) ; 
BUF FERLFH2SB_MAP_INUSEJ = 0 

BUF ; 


T 
J =1 
BUF FERCFH2SW_FID_NUM) = FID$C_CONTIN; 
UF FERCFH2$W-FID~SEQ) = FIDSC-CONTIN: 
6 CHSMOVE (6, OPLIT BYTE ('CONTIN'), Joent AREACF12$T_F ILENAME)); 
269 36 CHECKSUM2 (BUFFER, SBYTEOFFSET (FH2$W_CHECKSUM)); 
370 363 WRITE_BLOCK (.LBN + FIDSC_CONTIN, BUFFER); 
$f $02 : Turn the file header into the core image file header and write it. 
$i 369 
275 68 BUF FERCEH2$M_F1D_NUM) = FIDSC_CORIMG:; 
276 69 BUFFERCFHeSW-FID~SEQ) = FIDSC~CORIMG; 
277 70 CHSMOVE (6, OPLIT BYTE ("CORIAG'), IDENT_AREACFI2$T_FILENAME)); 
378 371 CHECKSUM2 (BUFFER, SBYTEOFFSET (FH2$W_CHECKSUM)); 
8 37¢ WRITE_BLOCK (.LBN + FIDSC_CORIMG, BUFFER); 
Be i : Turn the header into the volume set List file header and write it. 
8 7 
84 6 BUFFER FSM _F1D NUM} = FIDSC_VOLSET; 
85 78 BUFFERLFH2$W"FID~SEQ) = FIDS =VOLSET: 
86 79 BBLOCK BUFFER FA2SW_RECATIRI, FATSW.RSIZE) = 64; 
28 380 BBLOCK BUFFER FHOSW-RECATIR], FATSWMAXREC) = 64: 
288 81 CHSMOVE (6, UPLIT BYTE (*VOLSET'), IDENT_AREACFI2$T_FILENAME)); 
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$$ -32 V4.0-74 
BACKUP. SRed S 


32 
TAINIVOL.852;1 


BUF FER+28 
1. UF AT fBur ese. RO 


R7, BUFFER+3 
R7, #1 


3 
COM_0 SETCOUNT BUF FER®40 
OUTPUT_ATTBUF +74, BUF 


UF +76, 0 
OUTPUT ~AT TBUF +96 BUFFERS? 2 
OUTPUT “ATTBUF +104, BUFFER+80 


OUTPUT“BAD, R 
(RO) “BUF FER+456 

(SP), #32, #12, BUFFER+460 

#12, COM_O_STRUCNAME, BUFFER+460 

ouTeuT sh TTBur. QOUTPUT ATTBUF+4, #32, #12, 
OUTPUT _ATTBUF+8, @OUTPUT_ATTBUF +12, #32, 
#1 - BOF FFER+ 
#12, P.AAF, BUFFER+496 
Re. 
SP 
“, WRITE_HOMEBLOCK 
64(P$), BUFFER 
#1, 20(P$), J 
SP 
#1, _WRITE_HOMEBLOCK 


J 
68(P$), BUFFER 
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STAINIVOL Disk volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0-74 
bee INIT_INDEX = initialize ODS-2 index file ak ats ri TS et Pt PP 
52 16 AB 1 ¢1 001 ADDL3 #1, 20(P$), J 
oF 7 0137 BRB 10$ 
E Dd 00159 9$ PUSHL SP 
0000v CF 1 FB 15 CALLS #1, WRITE_HOMEBLOCK 
F 2 €5 00160 108 SOBGTR ‘ 9 
5 18 «OA 6 16 MOVL 4(P$), R2 
07 +A 0 16 BISB2 #2, 7(R2) 
5 OE AE 3C 00168 MOVZWL BUFFER*T4, RO 
04 Ae 5 80 OigF MOVW 4 (Re) 
5 20 Ar C 001 3 MOVZ2WL BUFFER+32, R3 
5} 6340 DE 0017 MOVAL (R3)CROJ, R1 
1A Ag 31 3 00178 MOVW R1, 26(R2) 
1c A2 7 C 017F ASHL #12, R3, 38 (R2) 
14 Ag 4C AB 00 00184 MOVL 76(P$), 20(R2) 
7E 5 09 78 00189 ASHL 4&9, R3, <(SP) 
000000006 0 gi FB 0018D CALLS #1. Get ZERO_VM 
10 A 0 DO 00194 MOVL RO, 16(R2) 
08 07 A 03 gi 00198 BBC #3. 7(R2), 11$ 
10 B2 OlFF 8F 3¢ 9019p MOVZWL #511, @16(R2) 
06 11 001A3 BRB les 
10 82 0107 BF 3C 001A5 11$:  MOVZWL #263, a16(R2) 
56 5 4C AB C1 001AB 12$:  ADDL3 76(P$), R3, R6 
56 07 00180 DECL. _LBN 
0200 28F 00 FD3F OCF 00c8 af 2c 00182 MOVCS #200, INITIAL_HEADER, #0, #512, BUFFER 
3c oA F4 OAD OO 001BE MOVL § OUTPUT_ATTBUF +40, BUFFER+60 
40 AE 12 Ad BO OOIC MOVW § OUTPUTATTBUF+70, BUFFER+64 
38 OE 14 Ad BO 001CB MOVW  OUTPUT“ATTBUF +72, BUFFER+56 
66 AE E4 a9 7D 001CD MOVQ § OUTPUTATTBUF+24, IDENT_AREA+22 
6E AE £4 Ad 7D 901¢ MOVQ © OUTPUTATTBUF+24, IDENT“AREA+30 
5E DD 001D PUSHL sp 
000000006 00 01 FB 00109 CALLS #1, CHECKSUM 
5E DD 001E0 PUSHL SP 
09 A6 OF OOiEe PUSHAB 9(LBN) 
6A 02 FB OOIE CALLS #2, WRITE BLOCK 
08 AE 00010001 8F DO 00168 MOVL #65537, BOFFER+S 
16 AE 9200 8F BO 001F0 MOVW #312, BUFFER*¢2 
24 AE 200 8F BO 001F6 MOVW #512. BUFFER+36 
50 14 AB 00 OO1FC MOVL 20(P$), RO 
51 30 BB40 DE 00200 MOVAL @48(P$SCROI, R1 
18 AE 51 10 9C 00205 ROTL #16, R1, BUFFER+24 
51 69 OOOOOF FF Hi C1 00 OA ADDL3 #4095, OUTPUT_ATTBUF+52, R1 
51 00001000 8F (6 00 iF DIVL2 #4096 
20 6140 3 021 MOVAL  (R1)CROJ, RO 
5 04 Ad CO 00210 ADDL2 OUTPUT_ATTBUF+56, RO 
50 06 0221 INCL RO 
1 AE 50 10 C 00 3 ROTL #16, RO, BUFFER+28 
4C AE 5 06 00 MOVL. RO, BUFFER+76 
50 AE FO9B CF 06 8 00 ¢ MOVC3 #6, P.AAG, IDENT_AREA 
50 B DO 00 MOVL PS 
57 30 AO 00 00 MOVL 32(R0), MAP_COUNT 
53 C AB D0O 0023A MOVL  60(P$); MAPTLBN 
38 1 00 0 E MOVL. #1, J 
50 C1 00241 13$:  ADDL3 MAP _LBN MAP_COUNT, RO 
3C AB42 b} 0245 CMPL =s_- RO, "60( PS) LIT 
; 024A BNEG 14$ 
57 20 aB42 CO 0024C ADDL2 32(P$)(J], MAP_COUNT 


NRNOONOwW —- OW fw 


Pee Se Se Se Oe Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Ge Se Be Se Se Se Se Se Se Bs Se Se Be Be Se Se Se Se Se Se Be Be Se Se Ss Se Se Be Se Se Se Se Be Se 


 svatetves Disk ume tottte tion 5. 
V INIT initi 4- 


5 
isk vol liza 16-Sep-1984 01:00 
04-000 NIT_INDEX = alize ODS-2 index file 1 et 94:92 
18 11 RB 
2 DD 14$ PUSHL 
DD PUSHL 
08 AE OF PUSHAB 
000000006 9 03 F A CALLS 
0 AB42 D 61 MOVL 
3 C AB42 00 00266 MOVL 
D2 52 9% F 6B 15$: AOBLEQ 
; DO of PUSHL 
57 0D } PUSHL 
08 At 9F 0027 PUSHAB 
000000006 00 9 FB 00276 CALLS 
E 0D 00270 PUSHL 
000000006 00 1 FB 0027F CALLS 
E 0D 00 PUSHL 
01 Ab YF 00 PUSH 
6A 02 FB 00 CALLS 
53 14 AB 00 0028 OVL 
52 01 CE 0029, MNEGL 
9 11 0029 BRB 
3 DD 00297 168: PUSHL 
48 BB42 9F 00299 PUSHAB 
6A 9 4 00290 CALLS 
F3 52 53 F2 OO2A0 178: AOBLSS 
7E 01 7D Q02A4 MOVQ 
18 AB DO 002A7 MOVL 
58 DD 002AB PUSHL 
7E 06 A8& 9A 002AD MOVZBL 
10 AE 9F 00281 PUSHAB 
000000006 00 05 FB 00284 CALLS 
50 68 00 00288 MOVL 
51 14 AB 09 Bases MOVL 
52 69 OOOOOFFF 8F C Ba5¢ ADDL3 
52 00001000 8F C6 osch DIVL2 
oc Ad OA A241 DE 00201 MOVAL 
0138 =F 00 6E 00 2C 00207 vc5 
oocs8 =«CE 002DE 
SA AE 94 002E1 CLRB 
08 AE 00030003 &F 0 002E4 MOVL 
50 AE FCE1 CF 0 8 8p E mMovc3 
57 D4 002F CLRL 
52 BB Ag 08 C1 002F ADOL3 
54 B8 B89 DO OO2FA MOVL 
53 I cf O2FE MNEGL 
0301 BRB 
57 04 A2 CO 00303 18$: ADDL2 
62 OD 07 PUSHL 
046 =A pp 09 PUSHL 
08 A F 00 be PUSHAB 
000000006 09 9 4 O30F CALLS 
1 3 18 LBS 
20 AB OOF 1 PUSHAB 
1 OD 1C PUSHL 
000000006 epsepen | PB 2 CALLS 
5 H 9 6 35 19$: ADDL 
D1 4 F2 0032E 208: AOBLSS 


AX-11 Bliss-32 V4.0-74 


74 

:0 

15$ 
MAP_LBN 
MAP_COUNT 

BUFFER 

‘ MAKE_POINTER 
6 


F 
ate MAP_COUNT 
(P$)CJ), MAPILBN 
a4, J, 13$ 

MAP_LON 

MAP~ COUNT 

eurF 

3. MAKE_POINTER 
1. CHECKSUM 
1(LBN) 

#2, WRITE_BLOCK 
20(P$), R3 

17$ 

SP 

a72(P$)CJJ 

#2, WRITE BLOCK 
R3, J, 168 

#1. =(SP) 

24(P$), RB 

(RB) -(SP) 

#5, CREATE_WINDOW 


20(P$), R1 
#4095, OUTPUT_ATTBUF +52, R2 


4096, R2 
10(R25CR1], 12(RO) 
#0, (SP), #0, #312, BUFFER+200 
BUFFER+58 
#196611, BUFFER+S 
#6, P.AAH, IDENT_AREA 


MAP_C 
#8, OUTPUT_BAD, BAD 


SQUTPUT_BAD, Ro 
BAD), MAP_COUNT 
AD) 

ER 
MAKE_POINTER 
19$ 


~ = "DM As 
ae 


wD 
oc 
~~ 


ACKUP$_MAXBAD 
LIBSSIGNAL 
BAD 
J, 188 


DzVez WDREDener 
Powe VOWS ~DAo— 


ese. @ 


9 
5 BACKUP. SRCJSTAINIVOL .852;1 
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STAINIVOL Disk volume initialization 16-Sep-1984 01:00:4 AX-11 Bliss-32 V4.0-74 P 0 
904-000 INIT_INDEX = initialize ODS-2 index file 19-808- 1382 1:90:62 EBACKUP. Re STAINIVOL.B32;1 age 43 | 
18 AE 57 10 9 3 ROTL #16, MAP_COUNT, BUFFER+24 : 3319 
5 6 INCL 7 : 2320 
10 AE 57 19 ¢ 9 ROTL #16, R7, BUFFER+28 : 
wipe BBR gs or Fener a 
000000006 00 ; FB 00344 CALLS #1, CHECKSUM : | 
E pp 0348 PUSHL  $P : 2323 
03 AB OF 0 4D PUSHAB 3(LBN) : 
6A 0 FB : CALL i, WRITE_BLOCK : 
0138 8F 00 6E oa ol 2c 0 ; MOVCS #0, (SP),"#0, #312, BUFFER+200 : 2328) 
A AE 9% CLRB = BUF FER+58 : 2329) 
AE cocont af DO 8 6 MOVL ii BUFFER+8 : 333 
4 AE 8F 88 036 BISB2 #128, BUFFER+S2 + 233 
18 AE 4 AB 10 ¢ 0 $0 #16, 52(P$), BUFFER+24 : 2333) 
50 0c AB 14 AB C7 00 DIVL3 20(P$), 12(P$), RO + 2334. 
50 OFFF CO 9E 00379 MOV 4095(R6), RO : 
50 00001000 =F C6 00 43 DIVL2 #4096, RO : | 
50 08 CO 0038 ADDL2 #2, R : 
10 AE 50 10 9C 00388 #16, RO, BUFFER+28 : | 
4C AE 50 DO 0038D MOVL_ RO, BUFFER+76 > 2335) 
50 AE FC42)—CCF 06 28 00391 MOVC3 #6, P.AAI, IDENT_AREA + 2336. 
50 AB DD 00398 PUSHL 80 (P$) : 2337. 
34 AB DD 00398 PUSHL 52(P$) : 
08 at 9F 0039E PUSHAB BUFFER 3 
000000006 00 03 FB OO3A1 CALLS #3, MAKE_POINTER : | 
SE DD 003A8 PUSHL : 2338 
000000006 00 gi FB OO3AA CALLS #1, CHECKSUM : 
E DD 00381 PUSHL SP : 2339 
02 Ab OF 00385 PUSHAB 2(LBN) : 
6A 02 FB 00386 CALLS #2, WRITE BLOCK : 
50 18 AB DO 00389 MOVL 24(P$), RO + 2346 
01 07 — A 0 i 00380 BBS #3, 7(RO), 218 : 
0138 «= &F 00 6E 00 2¢ ited 21$ MOVCS #0, (SP), #0, #312, BUFFER+200 : 2353) 
ooc8 «CE O3CA : 
3A AE «94 «(00300 CLRB. ss: BUF FER+58 > 2354. 
34 OA BO 8F 8A 90300 BICB2 #128, BUFFER+S2 : 3335, 
1 AE 04 0030 CLRL BUFFER 4 + 2356. 
1¢ AE 00010000 BF 00 0308 MOVL #65536, BUFFER+28 : 3357 
4C AE 1 0 E0 MOVL so] FFER+7 : 2358. 
08 AE 00070007 8F 09 00 E MOVL. #458759, BUFFER+8 : 2359 
50 AE FRED CF 6 0 g MOVC3 a6 P.AAJ, IDENT_AREA + 2361, 
7E O1FE 8F 3C 0 F MOVZ2WL #510, -(SP) 3 2362 
04 AE F 003F8 PUSHAB By F 
000000006 00 9 FB 00 FB CALLS #2, CHECKSUM2 : 
E pp 0402 PUSHL SP : 2363 
07 Ag F 004 PUSHAB 7(LBN) : 
6A FB 00407 CALLS ae WRITE BLOCK 3 
08 AE 00050005 8F 40A MOVL. #307685, BUFFER+8 : 2368 
50 AE FBCD «CF . 06 aig MOVC3 i: P.AAK, IDENT_AREA ; 2370 
7E O1FE © BF 3C 0041 mMOVZwL #510, -(SP) > 2371 
04 AE f ale PUSHAB BUFF R : 
000000006 00 Q FB 004 CALLS #2, CHECKSUM2 : 
E pp 428 PUSHL  $P + 2372 
05 Ab 9F O042A PUSHAB 5(LBN) ; 
6A 02 FB 0042D CALLS #2, WRITE_BLOCK ; 


STAINIVOL 
v04- 


3; Routine 


Size: 


isk volume tot ytels 
NIT_INDEX = initial 
08 

16 

24 

50 AE FBA3 
000000006 

08 

16 

$s 

50 AE FB77 
000000006 

08 

34 

4C 

1C 

18 AE 38 
14 

50 AE FB39 
000000006 
000000006 


1255 bytes, 


ation 
ze ODS-2 index file 


AE 
AE 
i 
: 


00 


6A 


Routine Base: 


5 
18-sep-19 4 
14-Sep-1984 


0006000 F 0 4 
4 F 9B 004 
& F 3 4 
6 44 
O1FE F 3C 0044 
04 AS F tof 
g FB 004 
E pp 458 
06 ag F Q045A 
9 F 450 
0008000 ae 460 
F 8B 68 
F re 
6 474 
O1FE F 3C 00478 
04 AS F bes 
g FB 0048 
E DD 0048A 
08 ag oF sok t 
8 FB 0048F 
00040004 F +4 00492 
2080 8F A Bee Ra 
02 44 04A0 
00020000 8F D pene 
10 9C 004AC 
0802 = 8F 88 00482 
OA 28 00488 
54 AB ODD inky 
38 AB 0D bere 
08 AE 9F 004C 
05 FB 004C8 
O1FE 8F 3C nee 
04 AE 9F 00404 
02 FB 00407 
5E DD 004DE 
04 AG YF 004E0 
02 FB 004E3 
04 004E6 
CODE + 0894 


9: 0:62 AX-11 Blis 


#393222, BUFFER+8 
#64, BUFFER+ 
#64, BUFFER+36 

P.AAL, IDENT_AREA 
#510, =(SP) 
BUFFER 
#2, CHECKSUM2 


WRITE BLOCK 

296, BuFFER+8 

s FFER+ 

-AAM, IDENT_AREA 


! -(SP) 
» CHECKSUM2 


R+ 

2. BUFFER+28 
#16, 56(P$), BUFFER+24 

BUF FER+2 
P.AAN, IDENT_AREA 
4 (Bs) 
6(P$) 
r) rT OAKE POINTER 
#510, -(SP) 
BUFF R 
a2. CHECKSUM2 


4(LBN) 
#2, WRITE_BLOCK 


=32 V4.0-74 
BACKUP. SRCJSTAINIVOL .B52;1 


roe 8 


SE 


oe 
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| 
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Fe 
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VFN —OODONOUSE 
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SESESE 


QOuikwno 
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a ek et ee ee a ld ed 
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WG 


o 
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246 


H § 
volume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0 
E_HOMEBLOCK = write home block to volume 12-Sep-1984 9 00: 4:05 


—PLIPIPINIPIPINIAIPIIIIIIIII IAIN II tt i ed de ed ed ed 


1: 


ZSBITL “WRITE_HOMEBLOCK = write home block to volume’ 
ROUTINE WRITE-HOMEBLOCK (BUFFER): L_P$ NOVALUE= 


ee 
sheaths DESCRIPTION: 
his aged poneyees the checksums in the home block currently 
in the buffer, writes it, and then increments the block numbers 
in the home block for the next write. 


INPUT PARAMETERS: 
BUFFER - Pointer to buffer. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BUFFER: REF BBLOCK; ! Pointer to buffer 


L_DECL; 

: Compute the two checksums and then write the block. 
CHECKSUM ( “BUFFER. SBYTEOFFSET(HM2$W_CHECKSUM1)); 
CHECKSUM2(.BUFFER, SBYTEOFFSET(HM2$SW~ one ek Sune): 
WRITE_BLOCK(.BUFFERCHM2$L_HOMELBNJ, -BUFFER); 

: Advance the block numbers to those of the next home block. 


BUFFER tS te HOMELBN) = .BUFFERCHM2SL_HOMELBN) + 1; 
—— HM2$W_HOMEVBN) = .BUFFERCHM2SW_HOMEVBN) + 1; 


Q00C 00000 WRITE _HOMEBLOCK: 
WORD 


. Save R 
53 000000006 ° ae 0000 MOVAB CHECKSURZ, R3 
D 0000 PUSHL #5 


BACKUP.SRC STAINIVOL.B 2;1 
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296 48) 


: 2417 
> 2454 


5 
STAINIVOL Disk volume initialization ihes2 -1984 01:00:49 AX-11 Bliss-32 V4. 
v04 WRITE_HOMEBLOCK = write home block to volume 12-808- 1 9be 91:90:68 BACKUP. SRC STAINT VOL 642: :1 
52 06 AC 00 000 MOVL BUFFER, R2 
DD PUSHL R 
$3 FB 00011 CALLS #2, CHECKSUM2 
E O1FE BF 3C 00014 MOVZ2WL #510, -(SP) 
DD 19 PUSHL R 
63 9 a: Ht CALLS #2, CHECKSUM2 
DD 1 PUSHL R 
4 DD 4 PUSHL (R2) 
FOF3)OCF FB CALLS #2, WRITE_BLOCK 
6 06 INCL (RO) 
10 A 2 9 INCW =: 16 (R2) 
4 C RET 


; Routine Size: 45 bytes, Routine Base: CODE + 0D7B 


— 


5 
k l initiali j 15- -1984 01:00:49 AX-11 iss-3 -0- 
st volume initialization Sep-19 91:00:69 yA Blis ¢ Vv 


4.0-74 Page 54 | 
ial ODS-2 MFD 14-Sep-1984 ACKUP.SRCJST INivoL 69231 . as 
z 


3 1 464 1 ESBTTL ‘Initial ODS-2 MFD' 
: ey 
3 : 48? : } The following are the records of the initial MFD for structure level 2. 
3 1 og 1 !- 
3 1 470 1 
3: 1 471 1 BIND 
3: 1 of¢ 1 INITIAL_MFD = PLIT ( 
3 1 473 (1 ! MFD (itself) 
3 1 474 1 WORD (90). ' record byte count 
31 475 1 WORD (1), : version imit 
3; 1 476 1 BYTE (0) ! flags 
3 1 477 1 BYTE (105 ' name byte count 
:1 478 1 BYTE ('006000.p1R"), i name string 
3 1 4 1 WORD (1), ' version number 
3 ; rt +4 ; WORD (4, 4, 0), ! file ID 
. 482 1 ' backup journal file 
3 1 483 1 WORD (22), !' record byte count 
3 1 484 1 WORD (1), ! version Limit 
3 1394 485 1 BYTE (0) ! 
3; 1 486 1 BYTE (105 ' name byte count 
:1 96 487 1 BYTE (*BACKUP.SYS"), i mame string 
3; 139 488 1 WORD (1), ' version number 
: 1398 489 1 WORD (8, 8, 0), ! file ID 
3; 1399 490 1 
: 1400 491 1 ' bad block file 
3 1401 492 1 WORD (22), ! record byte count 
: 1008 493 1 WORD (1), ' version Limit 
3; 140 494 1 BYTE (0) ! flags 
3 1404 495 1 BYTE (105, ' name byte count 
3; 1405 re 1 BYTE (*BADBLK.SYS'), ! name string 
3: 1406 497 1 WORD (1), ' version number 
3; 1407 498 #1 WORD (3, 3, 0), ' file ID 
; 1408 499 #1 
3 1409 500 1 ! pending bad block log 
3 1410 501 1 WORD (39). ' record byte count 
3 1411 206 1 WORD (1), ' version Limit 
: a 503 1 BYTE (0) } ags 
3 141 504 1 BYTE (105, ' name byte count 
3 1414 505 1 BYTE (*BADLOG.SYS"), ' name string 
3 1415 208 1 WORD (1), ' version number 
3 1618 07 1 WORD (9, 9, 0), ! file ID 
3 141 508 1 
3: 1418 509 1 ' storage bitmap file 
3; 1419 510 1 (99). ' recor byte cout 
: 1420 511 1 WORD (1), ' version Limit 
3: 1421 218 1 BYTE (0) ! flags 
: 14 é 5131 BYTE (105 i mame byte count 
> 14 314 1 BYTE (*BITMAP.SYS"), i name string 
: 14246 15 1 WORD (1), ' version .umber 
3 ¢ 5 218 : WORD (2, 2, 0), ' file ID 
3; 14 $ $18 1 ' standard continuation file 
3: 1428 519 1 WORD (22), ! record byte count 
: 1429 520 1 WORD (1), ! virsion Limit 
| 


th re A SEE | 
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vee tia ithe yee e 

3 14 oe BYTE (0) 

5 1431 g 1 BYTE 0d 5 

: 14 é 1 BYTE (*CONTIN.SYS"), 
: 14 5% WORD (1), 

: 14 5 1 WORD (7,°7, 0), 
Ag iz 

+ 14 1 WORD (22), 

: 14 § 1 WORD 99) 

: 14 530 1 YTE (0) 

+ 1440 531 1 YTE (105 

> 1461 3 é 1 BYTE (*CORIMG.SYS"), 
; 44g 1 WORD (1), 

> 146 534 1 WORD (5, 5, 0), 
HS BEY 

: 1446 537 1 WORD (22), 

> 146 538 1 WORD (1), 

: 1448 539 1 BYTE (0) 

> 1449 540 1 BYTE (105 

> 1450 541 1 BYTE ("INDEXF.SYS"), 
> 1451 348 1 WORD (1), 

; 1458 543 1 WORD (1,1, 0), 

> 145 544 1 

> 1454 545 1 

> 1455 346 1 WORD (22), 

: 1456 547 1 WORD (1), 

> 145 548 1 BYTE (0) 

: 1458 549 1 BYTE (105, 

> 1459 550 1 BYTE (*VOLSET.SYS"), 
: 1460 551 1 WORD (1), 

; 1461 35¢ WORD (6, 6, 0), 

; 1208 554 1 WORD (-1) 

+ 1464 555 1 

: 1465 556 1 ); 
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flags 

name byte count 
name string 
version number 
file ID 


core image file 
record byte count 
imit 


name byte count 
name string 
version number 
file ID 


index file 
record byte count 
version Limit 


ags 
name byte count 
name string 
version number 
file ID 


volume set List file 
record byte count 
version Limit 

flags 


name byte count 
name string 
version number 
file ID 


end marker 
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v04-000 INIT_MFD = initialize ODS-2 MFD 14-Sep-1984 
53 59 53 2—€ 54 45 53 4C 4F 56 O00E72 ASCII 
4 OE7C «WORD 
0000 0006 0006 OOE7E WORD 
FFFF 0E84 WOR 
00E86 BLKB 
INITIAL _MFD= 
003C 00000 INIT_MFD: 
5E FEOO HOVAB 
2 ou ff sigue eu 
0200 =‘8F 00 FFI2 ~=«CF 2C 00000 MOVCS 
6E BnoiS 
5E DD 0001 PUSHL 
54 AB ODD Bpore PUSHL 
FSEC 8=sCF 02 FB 0001C CALLS 
04 00021 ET 


; Routine Size: 34 bytes, Routine Base: CODE + 0E88 


0:49 


AX=11 Bliss-32 v4.0 
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BACKUP. SRC} STAINIVOL. 3 231 


hs 
TIAL_MFD=4, RO 
TIAL-MFD, #0, #512, BUFFER 


4(P$) 
#2, WRITE_BLOCK 
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vol 74 
IALIZE_VOLUME = main volume initialization 14 4:05 BACKUP. SRCJSTAINIVOL .632;1 


ZSBITL “INITIALIZE VOLUME = main volume initialization routine’ 
GLOBAL ROUTINE INITIALIZE_VOLUME(PVCB,PDEVCHAR): NOVALUE= 


P29 6475 


144 
' 


i FUNCTIONAL DESCRIPTION: 
This routine initializes an output disk volume during an image restore. 


INPUT PARAMETERS: 


FUSUISISISISISIS 
SF SWAWNWNIwiwnonoponononfnenonun 


DWOONOAUEWN —O ODNAUES WN HO OONAUSWN “OO ONOUSWN OW 


Pointer to VCB for output volume. 
PDEVCHAR - Pointer to device characteristics for output volume. 


IMPLICIT INPUTS: ; 
OUTPUT _ATTBUF = Contains volume summary attributes. 
VCBLVCB_CHAN] = Contains channel number assigned to volume. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


4 

4 SIDE EFFECTS: 

4 NONE 

4 

4 me 

4 

4 BEGIN 

4 LOCA 

5 PSAREA: VECTORCP$SIZE), ! Impure area 

5 ACB: REF BBLOCK, ' Pointer to ACB 
: ! Temp 

: = REF VECTOR; ! Impure area base register 
5 


Initialize. 


P$ = PSAREA: 
CHSFILL(O, 2*ALLOC_MAX®4, _ALLOC_TABLE_CNT); 
VCB = .PVCB; 


SSS 


Ooo 
wn 


CLUSTER]; 
STRUCLEV_1 = (.OUTPUT_ATTBUFCVSR_STRUCLEV] EQL 1); 


! Strip trailing spaces from the volume name. This is necessary so that it can 
be zero-filled for an ODS-1 header. 
DECR J an -BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSC$W_LENGTHJ-1 TO 0 DO 
ve zVECTORC .BBLOCKCOUTPUT AT TBUFCVSR VOLNAREJ, DSCSA_POINTER], .J ;,BYTE] EQL 2C* ° 
BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSCS$W_LENGTH] = 


a a a a a ts a a aa tk at td dt 8 = 2 2 = 2 = a a as a SS SY a 
Seto ar 


DPD LEDPU PPD DU PUPUPUPVPUDUSU SUSU SUSE SUSVUSUSUSUSESUSUSESI SSIS TTI 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
§ 
2 
2 c3 
2 GLOBAL REGISTER 
3 P$ = 11: 


Rorohononnoronrnry 
POR RAAAD 
Wwr—O0e 


snNN 
frwh—o 


————————————-— cm ——— —_ ee 


6 sep-19 4 Q1: 


ooo 


: Now verify the parameters against the volume size and characteristics. 


if .STRUCLEV_1 
THEN 


SSNS 


—ooo 


BEGIN 
Sac iiee RCO REL PANU OCR GTRU 255°12 


SIGNAL (BACKUP$_LARGECNT, 1 weecvce DEVICE}); 
IF .OUTPUT _ATTBUFCYSR MAXFILES GTRU é 500 
THEN OUTPUT_ATTBUFLVSR_MAXFILES) = 65500; 


! Check the cluster factor against its lower bound such that the storage map 
! does not exceed 255 blocks. Also check for a reasonable minimum number of 
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; 1575 664 -BBLOCKCOUTPUT_ATTBUFCVSR_VOLNAME], DSCSW_LENGTH] - 1; 

3 3 rg 665 END; 

3; 157 66 

3; 1578 66 ; 

3 \ 6 oe8 Get the channel number assigned to the device. 

3 1888 670 CHANNEL = .VCBCVCB_CHAN]; 

3 1286 671 

; 158 67 

3 1288 of? Get the bad block information. 

3 1286 of? OUTPUT_BAD = GET_BADBLOCKS(.VCBCVCB_FAB], .CHANNEL, ._DEVCHAR, .CLUSTER); 

: 1588 67 

: 1289 of8 Compute volume size, rounded up to next cluster boundary. 

s 123) oR VOLUME _SIZE = (.DEVCHARCDIBSL_MAXBLOCK] + .CLUSTER - 1) / .CLUSTER * .CLUSTER; 

3 1298 268 

3: 1594 268 ' Allocate ACB to describe entire volume. 

3; 1595 684 ' 

3 1596 685 ACB = GET_VM(ACB_S_ENTRY); 

3; 1597 2686 VCBCVCB_ACB_FLINR] = .ACB; 

3 1598 2687 VCBLVCB_ACB_ BLINK] = .ACB; 

3; 1599 2688 ACBLACB_ LINK) = VCBCVCB_ACB_FLINK]; 

3; 1600 2689 a ee = VCBCVC8_ACB_FLINK]; 

: 1601 2690 ACBLACB_COUNT] = .VOLUME_SIZE; 

3 1006 2691 ACBCACB_LBN] = 0; 

; 160 269 § 

3 1604 269 f ; ; 

3; 1605 2694 ! Unless the user has preinitialized the volume, increase the maximum number 

$ 1908 ed of files if warranted by thé output volume size. 

3; 160 697 § I 

: 160 698 -QUALCQUAL_INIT] AND 

; 161 $639 -OUTPUT ATTBUF CVSR_MAXF ILES] LSSU 

; : 3 si nae -DEVCHARCDIBSL-MAXBLOCK] / ((.CLUSTER + 1) * 2) 

Ss 2702 § OUTPUT_ATTBUFCVSR_MAXFILES) = 

; : -DEVCHARCDIBSC_MAXBLOCK] / ((.CLUSTER + 1) * 2); 

2 § 

2 1 

s 1 

..% 

3 1 

3 1 

SS 

3 1 

3 1 

3: 1 

2 1 

+ 

3 1 

3 1 

: 1 

s 1 
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v04 INITIALIZE_VOLUME = main volume initialization 14-Sep-1984 11:54:0 BACKUP.SRCJSTAINIVOL .8352;1 (17) 
> 16 721 ' clusters. 
; 16 7 7 ¢ : 
3 1634 7 IF 
>; 1635 724 -VOLUME_SIZE / fLusTER GTRU 255°12 OR 
; 18 ° f 5 yg VOLUME SIZE / CLUSTER LSS 5 
: 1638 7 ; SIGNAL (BACKUPS_CLUSTER, 1, VCBLVCB_DEVICE]); 
es 
: 196) f » Increase maximum number of files if necessary to be input index file size. 
: 1648 i g IF .OUTPUT_ATTBUFCVSR_MAXFILNUM] GTRU .OUTPUT_ATTBUFCVSR_MAXF ILES] 
: ieee i 4 OUTPUT_ATTBUFCVSR_MAXFILES] = .OUTPUT_ATTBUFCVSR_MAXF ILNUM); 
5 164 736 
; yb a g 4 ; Check maximum number of files against number of clusters. 
3 1650 37 9 2 C = .VOLUME_SIZE / (.CLUSTER+1): 
; 1691 740 IF .OUTPUT_ATTBUFCVSR_MAXFILNUM) GTR .C 
: 1688 a SIGNAL (BACKUPS$_CLUSTER, 1, VCBCVCB_DEVICE]); , 
; 1635 244 2 IF .OUTPUT_ATTBUFLVSR_MAXFILES] GTR .C 
> 1657 2746 OUTPUT_ATTBUFCVSR_MAXFILES] = .C; 
: 1689 she 
> 1660 2749 ! Establish the position of the index file. If /INITIALIZE is specified, or 
3 1661 $720 ! the original volume is not the same size, place it in the middle. Otherwise, 
: 166¢ 215. : propagate the original position. 
3 1664 rag i For middle placement, apply a bias factor equal to the size of a default 
3; 1665 754 i initial MFD so that in the usual case the file structure will be allocated 
: Lb 9 755 ' as INIT would allocate it. 
: 166 738 ! 
: 1668 75 ! for propagated placement, subtract out the size of the storage bitmap to 
3 1669 758 ! place the index file bitmap on the same LBN. 
3; 1670 759 ! 
3: 1671 760 IF 
; 167¢ 761 -OUTPUT_ATTBUFCVSR_INDEXLBNJ EQL 0 OR 
3: 167 76 -OUTPUT_ATTBUFCVSR_VOLSIZE] NEQ .DEVCHARCDIBSL_MAXBLOCK] 
3 1674 76 THEN 
3; 1675 764 BEGIN 
3 1o78 765 OUTPUT_ATTBUFCVSR_INDEXLBN] = 
3 167 766 -DEVCHARCDIBSC_MAXBLOCK] / 2 + MAXU(2, .CLUSTER); 
: 1678 76 
3: 1679 768 ELSE 
3; 1680 769 BEGIN 
3; 1681 770 LOCAL 
a , 
> 1684 77 T = (((, VOLUME_SIZE/.CLUSTER + 4095) / 4096) + .CLUSTER) / .CLUSTER * .CLUSTER; 
3 1685 774 IF .1 LEQU .OUTPUT_ATTBUFCVSR_INDEXLBN 
3 1686 775 THEN OUTPUT_ATTBUF WSR INDEXLEN} = ,OUTPUT_ATTBUFCVSR_INDEXLBN) - .T 
; 1687 As enp sete OUTPUT“ATTBUFCVSR~INDEXLBN) = 0; 


49 
:05 


ry Bliss-32 a ae 
BACKUP. SRCJSTAINIVOL .852;1 


Dn VSRMHOD—- 
oe ee 


P$ 
SP), #0, #56, 32(P$) 


pm AB 3342-325 
CTo<- OMOC--Woz 


(R6) 
OUTPUT _ATTBUF +78, (R4) 
QUTPUT _ATTBUF +65, #1 


0 

RO, 4(P$) 

UfPUT_ATTBUF, J 
UTPUT_ATTBUF*4(JJ, #32 
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; 1689 re 
; 1690 77 
: 193) f Now call the routines that do the work of initializing. 
: 1838 7 ¢ INIT_ALLOCATE(); 
3 1694 7 INIT _BITMAP(); 
3; 1695 784 IF .STRUCLEV_1 THEN INIT_INDEX1() ELSE INIT_INDEX(); 
; 1698 te) IF .VCBLVCB_SAVESET] THER INIT_MFD(); 
3; 1698 444 
3 84 f 3 Note that the initialization is complete. Record the volume Label. 
3: 1701 18 VCBLVCB_INIT_HDRS) = ..VCBCVCB_IMAP]; 
3 1708 791 VCBLVCB_INIT_DONEJ = TRUE; 
3; 170 79 CHSCOPYT 
3 1704 79 -BBLOCK OUTPUT _ATTBUF EVSR_VOLNAME , DSC$W_LENGTH) 
; 1205 79 -BBLOCKCOUTPUT_ATTBUF LVSR_VOLNAME], DSCSA-POINTERS, 
3: 1707 796 HM2$S_VOLNAME, 
3 1708 ia h4 VCBCVCB_VOLNAME)) ; 
3 1710 799 
: Hay $00 H Release the bad block descriptor. 
3 1418 80 FREE _VM(BAD_S_ HEADER + .OUTPUT_BADCBAD_NUMDESC] * BAD_S_DESC, -OUTPUT_BAD) ; 
3 1714 80 OUTPOT_BAD = 0; 
3 1715 804 1 END; 
OBFC 00000 ENTRY 
59 000000006 or DO 00002 MOVL 
38 00000000G 00 9€E 00009 MOVAB 
57 00000000" EF 9E B00 19 MOV 
5E AB AE YE 0001 MOV 
58 6— 9E 0001B MOV 
38 00 6E 00 2c 830) move 
20 AB 00 
18 AB 046 AC 4 86 MOVL 
56 1¢ 3 =6AB 002A MOVAB 
$6 08 Ac 8 MOVL 
4 14 ag — 000 MOV 
64 1A COA C 000 MOVZWL 
5 4 0003A CLAL 
01 OD A 1 000 5 CMPB 
9¢ 12 0004 BNEQ 
+3 0042 INCL 
04 ae 5 B 44 1$: MOVL 
5 ce 86 : 48 MOVZWL 
OA 1 4C BRB 
20 00 8740 91 4E 2%: CMPB 
0 6 2 BNEQ 
cc A? B DECW 
F3 50 F4 00058 3$: SOBGEQ 


OUTPUT _ATTBUF 
J. 28 


roe 8 


ee ee oe eee eee 
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ume initialization 16-Sep-1984 01:00:49 AX-11 Bliss-32 V4.0-74 Pa 3 
ZE_VOLUME = main volume initialization 19-808-1 382 91:90:98 EBACKUP SREISTAINIVOL 6 2:1 9 485 
50 18 AB 00 MOV 4(P$), R : 2670 
68 OB Ni Re H MOVZWL ts i fy, : « 
64 bb 6 PUS (R4) + 2675 
52 $6 D 6 MOVL  (R6), R2 : 
DD 000 PUSHL R2 : 
68 Db 0 6A PUSHL  (P$) : 
50 18 AB OD $ OVL 24(P$), RO : 
30 AO DD 00 PUSHL 48(RO) : 
000000006 09 4 FB 007 CALLS #4, GET_BADBLOCKS : 
8 A 0 OD Seen VL RO ourhyt ~~ : 
52 0 A2 4 ci i ADDLS (Rd, 112(R2), R2 : 2680. 
52 64 C6 B08 pivLg (R4), R2 : 
10 0d OO8D PUSHL #16 + 2685. 
000000006 99 01 FB O08F CALLS #1, GET_VM : 
2 18 AB DO 00096 MOVL 24(PS),"R : 2686 | 
38 Ag 2 DO OOO9A MOVL ACB, 46(R2) : | 
ee 0 D0 0 09 MOVL ACB, 44(R2) > 2687. 
60 28 Ag 9E 000A MOVAB 40(R2), (ACB) : 2688, 
04 Ad 28 OA 3 0006 MOVAB 40(R2). 4(ACB) + 2689 | 
08 a0 OC AB 00 000AB MOVL 12(P$), 8(ACB) : 2690. 
0C AO D4 00080 CLRL ~—_: 12 (ACB + 2691 | 
27 FEGE (C7 05 €1 00083 BBC #5, QUAL+10, 4$ > 2698 
51 66 00 00089 MOVL (RO), RI ; 2700| 
50 64 DO 000BC MOVL (R4). RO ; 
50 02 C4 000BF MULL a. RO F 
50 02 C9 900¢e ADDL2 #2. RO : 
51 70 «Al 39 C7 000C¢ DIVL3 RO, 112(R1), R1 : 
51 67 D1 OOOCA CMPL QUTPUT_ATTBUF+52, R1 : | 
11 1€ 000CD BGEGQU 4$ : 
51 66 DO OO0CF MOVL  (R6), R1 : 2703 
50 64 D0 0 MOVL (R4). RO : | 
50 02 C4 0000 MULL2 #2, RO ; | 
50 02 CO 00008 ADDL2 #2, RO : 
67 70 «Al 50 ¢7 00008 DIVLS RO, 112(R1), OUTPUT_ATTBUF +52 : 
29 04 AB €E9 OO0EO 48 BLBC 4(P$), 6$ : 2708 
50 66 DO O00E4 MOVL  (R6), RO : 2711. 
OOOFFOOO © BF 70 AO 01 000E7 CMPL 112(RO), #1044480 : 
OE 1B OOOEF BLEGU 5$ 3 
20 Ad OF OOOF1 PUSHAB 32(R2) : 2713 
O01 DD O00F4 PUSHL #1 : 
g oorronone FE Pe toore = Faure. saMCeupseyengeem : 
O000F FDC $F $3 D1 GoorF 5$ CMPL fPUT_ATTBUF+52, #65500 : 2714 
05 1B 00106 BLEQU : 
67 FFDC BF 3¢ 0108 MOVZWL #65500, OUTPUT_ATTBUF +52 ; 2715. 
& OC AB $4 C7 0010D 6$ DIVL3 (RO), 12¢P$), RS + 2724 
Q00FFOOO —8F 2 1 0011 CMPL RS. #1044480 ; 
32 53 pi 118 CMPL = R's, #50 + 2725 
A 18 0011 BGEG $ ; 
20 Ae 9F 00120 7$ PUSHAB ¢(R2) : 2727 
5 BP 001 pusne m9 : 
6 FB 001 CALLS #3, LIBSSIGNAL : 
68 04 3 Of 12A 8S: CMPL OUTPUT_ATTBUF #56, OUTPUT_ATTBUF +52 : 2732 
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9$ 
OUTPUT ATTBUF #56, OUTPUT_ATTBUF +52 
0, (Steg). c 

fput aTTéuF +56, C 


(R2) 
® 


RO 
#3, LIBSSIGNAL 
ufPUT _ATIBUF #52, C 


C, OUTPUT_ATTBUF +52 
OUTPUT_ATTBUF +84, R2 


(R6), RO 
QUTPUT_ATTBUF +44, 112¢RO) 
(R6), RO 

#2, 112(RO), RO 

(Rd), RI 

Ri, & 

13$ 
#2, R1 

R1, RO, OUTPUT_ATTBUF +84 


4095(R5), RO 
#4096, RO 


4 
T, OUTPUT_ATTBUF +84 
14$ 


OUTPUT_ATTBUF +84 
0. INTT_ALLOCATE 
#0, INIT 


4(P$), 17$ 
ia INIT_INDEX1 
’ 


rane if 
ee 
; 2740 


S 2742 


: 2744 


746 
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; 2762, 


; 2766 


VOs-000 =—TNTTAACLYESVOCURE'S ‘Ra tn volume initialization ieee 1982 F1i8863 — YBkcRUeSSRESS TANI VOc 892: 1 we an 


; Routine Size: 505 bytes, Routine Base: CODE + OEAA 


—— ey, 


6 

STAINIVOL Disk volume initialization 14-58 “19 1:00:49 AX-11 Bliss-32 V4.0-7 Page 
voe-000 INITIALIZE_VOLUME = main volume initialization 10-8887188¢ 94:92 4:05 BACKUP. SRCJSTAINIVOL. 8 231 7 85 
: 1717 $805 1 END 
3; 1718 06 0 ELUDOM 

-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
; COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVRNOPIC “AL IGN(2) 
3; CODE 4259 NOVEC *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
FH Library Statistics 
Beef? oy Me ot ae ns pee Sia, ot emenae Symbols -<------- Pages Processing 
5 File Total Loeded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 129 0 1000 00:02.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:STAINIVOL/OBJ=OBJ$:STAINIVOL MSRC$:STAINIVOL/UPDATE=(ENH$:STAINIVOL) 
Size: 5576 coge + 2807 data bytes 
Elapsed. finer 04:09. 
Lines/CPU Min: 15 
ponenee/< Pye: 32869 
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